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RESPONSIBILITY FOR ANY ERRORS 


i eta D base eae 


THE SOFTWARE IBED Mt A Eg 
PURCHASER AL es et A SINGLE COMPUTER 
ayever AND nie) BE ¥ Cary NCLUSION exter? ak 
OTrenuise Be PROVIGED IN WRITING BY DIGTA. 

Orer Te ee CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 
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1.0 GENERAL PROGRAM INFORMATION. 


1.1 PROGRAM PURPOSE (ABSTRACT). 
THIS DIAGNOSTIC IS A LOGIC TEST TO VERIFY THE aes VEY Oe THE 


BL wd tlSea PESTLE he "elite 


FO hatte OE iol EME Nom RP CU ER 


er Re Oe ae a A 


NTERFACE DEVICE ADDRESS 
17610 ier Sek Sena ee en OF 15 CONSECUTIVE 


“SBBQRRAGRKBISIAAZS 3 


60 - VECTOR FOR CONSOLE “EVICE INTERFACE. 
300 - VECTOR FOR FiRST OF 1S DEVICES. 


THIS PROGRAM IS eg AN oe aay POP-11 WITH “WK OF 


1.2 SYSTEM REQUIREMENTS. 
HARDWARE REQUIREMENTS: 
ANY PDP-11 FAMILY PROCESSOR 
INIMUM 


4K MEMORY - MIN 
A SPECIAL WRAP CONNECTOR OR EQUIVALENT (OPTIONAL) 


SOFTWARE REQUIREMENTS: 


THIS DIAGNOSTIC IS DESIGNED TO RUN IN ANY OF THE 


FOLLOWING Bs; 

WITH ITOR 

WITH ACT MONITOR 
WITH XXDP MONITOR (CHAINABLE ) 
1.3 RELATED DOCUMENTS AND STANDARDS. 

DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS 175-003-0093-02 
APT MD-11-02ZMA 
ACT AUTOCAT-11-@ZAUB 
SYSMAC 1 


RR OR Bam IT Son OSB Ve Pot Obie SRE tote 


bb be tb bb bb ee ee te 


1.4 DIAGNOSTIC HIERARCHY PREREQUISITES. 


EO] 
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127 NO SPECIAL DIAGNOSTICS ARE Ae ee + TO RUN BEFORE THIS, BUT 
THE ee MEMORY, BUS ARE ASSUMMED TO BE FULLY 


§ 


] 
1.5 ASSUMPTIONS. 


Tore ORS US. + ee THAT__ THE ee Seorce ve tee. INITIALIZED 


2.0 OPERATING INSTRUCTIONS. 


Pre G8 Bet be bm be be Pee be be fe = Re fee Pee 


2.1 LOADING AND STARTING PROCEDURES. 
re} STANDARD PROCEDURE FOR PDP-11 ABSOLUTE BINARY FORMATTED 


THIS DIAGNOSTIC HAS ONLY ONE (1) STARTING ADORESS. 200 FOR 
START AND RESTART. 


THE USER CAN SELECT A SPECIFIC TEST TO BE EXECUTED BY SETTING 
SWITCH 8 IN THE SWITCH REGISTER AND THE TEST NUMBER (IN OCTAL) 
IN THE LOWER (NOTE: ALL TESTS PREVIOUS TO THE SELECTED 
ONE ARE EXE IN QUICK VERIFY MODE.) 


2.2 SPECIAL ENVIRONMENTS. 
PPT REL YD see PROCEDURE FOR RUNNING 
WOE feta Sr TORS, AS DESCRIBED IN THEIR RESPECTIVE 
AND SYSMAC’ PACKAGE. 
2.3 OPERATIONAL SWITCH SETTINGS 


Fe ee IS RUN ON A CPU W 
REGISTER THEN A SOFTWARE SWITCH meets Tee te USED WHICH 


~ESSURRLORNSSS5IFHESH-“SSBVKREGHEBS 


I 
aeets Tes OO? MOT EXIST OR_IF Oe Ooee Eh eM conTats 
(LOC. 176) IS USED. 


CONTROL: Wa 


THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE 
SWITCH REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE 
ACCOMPLISHED BY DOING THe FOLLOWING: 


1) TYPE CONTROL G <tG>; THIS WILL ALLOW THE TTY TO ENTER ‘ 
DATA INTO LOC. 176 AT SELECTED POINTS WITHIN THE 


eee te ee ee ae ee Be ae ee ae me ee he me me ae ae ee he ee he he he ee ee ee 
BIdsrISIAaZIn-SSESERIGA 


@ 
ee 


FOL 
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Eb See en ERS 


WONOWE Wr 


ruruoru 
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PASSA A 


"9-AUG-77 09:16 


2.4 


PROGRAM. 
2) THE MACHINE WILL THEN TYPE:* SWR=XXXXXX_ NEW=" (XXXXXX IS 
THE OCTAL CONTENTS OF THE SOFTWARE SWITCH REGISTER. ) 
3) AFTER THE ’NEW=’ HAS BEEN a = oe 
ONE OF THE FOLLOWING AT 
A) TYPE A NUMBER TO BE mre §S- 176 FOLLOWED BY 
(ONLY 7 





A <CR. ACCEPTED). 
NG THAN 6 


eo I Btu Be IF A <CRD 

i RL repressed. The sOFTure SWITCH 
B) ARUBOUT WILL DELETE THE LAST. INPUT VALUE AND WILL 

DELIMIT ALL DELETED CHARACTERS BETWEEN BACK SLASHES. 


C) a. hh ee DEPRESSED THEN THE PROGRAM WILL 


ELL OEE BO al Sy 
AND WILL WAIT FOR val Sn CRUCTERS. 


DATA AGAIN USING VAL 
DYNAMIC SWITCH REGISTER 


BIT + ie toe 4 on Test 
13 - - Herel! TYPEOUTS 


if - = fer ITERATIONS 











8 - LOOP ON IN SWR<7:0) 
7:0 - TEST NUMBER TO LOOP ON (USED WITH BIT 8) 


PROGRAM OPTIONS. 
reat PROGRAM pe © MULTIPLE OLVII-F’S. IT 
Res Te ADRESS OF Te (STORED AT ’ *) AND 
CTi’); AND WILL ABLE 


MORES PANY BLVL1- oe ar AT THE SPECIFIED BASE ADDRESS 


a ee a oh 


te oon BE ABLE TO TEST ANY DLVII-F WITHIN THE 
RANGE 175610 --> 176000 


SBASE AND SVECT1 DEFAULT TO 175610 AND 300 RESPECTIVELY. 


SEQ 000S 


MAINDEC-11-DVDVC-A 
DVDVCA.P11 


PERERRRSME SS sda nal alike Pe REE RET 


MACY11 27(1006) 
77 03:16 


GO1 
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Ln Be Sa a (NUMBERS IN 


unureo — f eoyT cfneb AT *svecti’ 
UNITaL — 


UNITS14 -- — + eo) 


LOCATION *SDEVM’ IS USED AS A BIT MAP TO INDICATE WHICH UNIT 
NUMBERS ARE TESTED. 





AND WILL 
TSIM e = BIT 1 BIT O 
' CON- ? UNIT ! ' UNIT ! UNIT ! 
SOE! 14 ! fei ! 0 ! 
A BIT MAP CAN BE ENTERED AT ‘SDEVM’ PRIOR TO STARTING THE 
PROGRAM. 
EXAMPLE : 


Seer 03 


THE PROGRAM WILL TEST- 


UNIT#O 17561 
ret 1 

UNIT 1 

CONSOLE 177560 60 





INS ALL THE USER SELECTABLE OPTIONS. THE 
S IN THIS WORD MUST CONFORM TO THE ACTUAL BOARD 


HO1 
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THE DEFAULT VALUE OF SUSWR IS AS FOLLOWS: 
BIT POSITION DEFINITION DEFAULT VALUE 


0-3 8 OF DATA BITS 10(8) 
4 PART 0 


pages” 


a 
2 


oss Rag tt 
Sot GENIE | 


NT 
1S ERROR BITS ENABLED 0 


NOTE ON BITS ¢7:11> 
WHEN THE PROGRAMABLE BAUD RATE OPTION a 


BE Br tin Hat Hol 
Hee PSD Sy Ube (A 


AT THE END OF PBR TEST.(TEST #16) 


Se toel SESE IN PARAS NIB 
2233 & 


NOTE ON BIT 14 
THIS SWITCH WHEN ON WILL ALLOW THE DIAGNOSTIC 


Hee HME abs Pichh Has"ataa? oP 


BOVI-F MODULES WHEN THIS BIT IS SET. 
2.5 EXECUTION TIMES. 


EXECUTION TIMES ARE FOR AN LSI-11 PROCESSOR WITH ALL OPTIONS 
ENABLED om THE DLV11-F (EXECPT FOR PROGRAMMABLE BAUD RATE), AT 


RODTTTONAL passes 8 MINUTES 


ADDITIONAL DEVICES 2 MINUTES 


THE TEST TIME IS BAUD RATE. DEPENDANT; HIGHER BAUD GIVES 
SHORTER PASS TIMES. 


WWWWWWWUWW) 


TT eT ra ay 
WONCU CWO 


BESRARRSASS 
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3.0 


3.1 


3.2 


4.0 


4.1 


ERROR INFORMATION. 








SINCE THIS DIAGNOSTIC WAS DESIGNED TO FIT IN 4-K OF MEMORY THE 
a IS VERY BRIEF. THE FORMAT OF THE ERROR TYPEOUT 


TEST &++e++ , ERRORS e++ee , PCseeeee  ADDRESS=ee+e ee , VECTOR=eeeee 


TAL. 
VECT TO THE FAILING SLU’S. 
FOR FURTHER INFORMATI On Te Se NG MUST 


aii 43 Ags ee oe pe ie pistes CONTROL THE 
BIT TS RoUtINe. CONTINUE ING THE PROGRAA calses TT"10 


BIT 13 - DISABLES THE PRINTING OF THE ERROR MESSAGE. 
BIT 10 - CAUSES THE BELL TO RING. 


BIT 9- S_THE DIAGNOSTIC TO LOOP FROM BEGINNING 
OF TEST TO ERROR. 


THE ERROR ROUTINE SUPPORTS THE CONTROL G FUNCTION. 
ERROR HALTS. 


THE ONLY HALT IN THIS DIAGNOSTIC 15 JN THE ERROR ROUTINE, AND 
IS EXECUTED ONLY IF BIT 15 OF THE SWITCH REGISTER IS A ONE 
WHEN AN ERROR OCCURS. 


PERFORMANCE AND PROGRESS REPORTS. 


PERFORMANCE REPORTS. 


AS EACH DEVICE COMPLETES ONE PASS OF THE DIAGNOSTIC THE 
FOLLOWING WILL TYPED: 
SR: e¢ee+ , VECTOR: e+¢e+, ERRORS: eeeee 


RE.’CSR: eeeee’ i THE DEVICE CSR UNDER TEST 


WHE 
AND "ERRORGiee” | THE Tota. f R OF ERRORS ON THIS DEVICE 


01 
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NOTE 
THIS IS TYPED AFTER THE DEVICE HAS COMPLETED ITS PASS. 


AFTER ALL DEVICES HAVE BEEN EXERCISED AN END PASS STATEMENT IS 


Seeeee ,” 
5.0 DEVICE INFORMATION TABLES. 


SEIRRERHE SEER EO SOARES 


ae 0 
HEE ME HEHE HE HE HE HE SEE ME HE SEH HE HE SES SE SE EE 3 HS HE HE 
rf ff  IRCVRE = $f ERCVRIRCVRE IROR ! 
ee ee es) 
96 36-36-96 36-36 8 36-4 SE SEE SE 3 EE EE aE HE 96-36 3 HE HE HEE 3 HE aE 
RBUF'ERRO!OR !FR !P $$ $ f Ff ! RECEIVED DATA BUFFER 
SR TERR TERR feERR? of oF of 
* ‘einiia-inailat-iniieal Pott 1+ 
TCSR! PROGRAMMABLE BAUD !PBR ! tO IXMITIXMIT! = ff EMAINE = SBREA 
; PRONE ELECT ewe: o¢ i impy ite i of Kf 
* sredacscuanttnen seunccucnedousncessnceteusessedeconsseusssuscsuncensuss 
ng ee ae eee tay te ey vor pee TRANSMITTER DATA BUFFER 
aif PPPETETTTTITT TT TTT TTT TT TTT TT iti t titi titi tt ttt ieteit ttt ttt ttt ti iii ite: 
41 
13 
41s te 
416 BLANK BOXES INDICATE UNUSED AND RESERVED 
417 BIT POSITIONS. SEE THE LISTING FOR AN 
4 EXPLANATION OF THE BITS. 
a 
Wee 6.0 | SUMMARY OF TESTS AND SPECIAL SUBROUTINES. 
4 
3 TEST 1 ADDRESSABILITY 
4 
4 THIS TEST VERIFIES THAT THE ADDRESS AS PLACED IN THE 
4 P-TABLE TO BE CORRECT AND THE OLVII-F 
431 RESPONDS TO THAT ADDRESS SPACE. 


MAINDEC-11-DVDVC-A 


DVDVCA.P11 


SSSGRATO RS SOURS OOO SS SPR ESE ACIS GRO 


BRESIItasons 


08-AUG-77 09 


O1 
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THE FOLLOWING 8 TESTS TEST ALL ’READ WRITE’ BITS 


TEST 2 BREAK - TCSRO SET, CLEAR, RESET 


TEST 3 MAINT - TCSR2 SET, CLEAR, RESET 


@-oce = ~ 


TEST 4 XMITIE - TCSR& SET, CLEAR, RESET 


TEST S RCVRIE - RCSR6 SET, CLEAR, RESET 


THE FOLLOWING 4 TESTS VERIFY THAT RESET (INIT) INITIALIZES 
READ ONLY BITS. 


TEST 6 RCVRDONE - RCSR 7 - IS CLEARED BY INIT 


TEST 10 XMITRDY - TCSR 7 - IS SET BY INIT 


TEST 11 XMIT RDY - TCSR 7 - CLEARS WHEN TBUF IS LOADED 
WITH A CHARACTER AND THAT IT SETS WITHIN A 
REASONABLE AMOUNT OF TIME. 

TEST 12 OUTPUTTING A CHAR FROM TBUF (WITH MAINT SET) 

SULTS IN RCVRDONE _ SETTI WITHIN A 


AMOUNT OF TIME THAT RESET 
CLEARS BIT. 


TEST 13 RCVROONE IS CLEARED BY READING RBUF 





— 






BRA BSSIRRS 


SOE RRC ROE Se oR 


fe De ae bas Bae pe Bae be 
ONGC CWMH- 


RRR ee MOTE is 


MACY11 27(1006) 
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LOGICALLLY THIS IS 4 SEPARATE TESTS 
Tae Tee INTERRUPT LOGIC WORK 
) IORI 0 


) AND ONLY 
D) BUT NOT WITH INTERRUPT ENABLE CLEAR 
TEST 20 RECEIVER INTERRUPT LOGIC TEST THIS TEST COVERS ALL 
OF THE RECET SIDE OF THE INTERRUPT LOGIC IN 
CHARAETER MODE. 
TEST 21 TEST ACTUAL DATA TRANSFERED NON-INTERRUPT 
MAINTENANCE BIT SET 


TEST 22 TEST DATA THROUGH WRAP 


WITH BREAK SET AND COMPARE RECEIVED WITH O. 


TEST 2S NOT A TEST - SEND BACK TO LOOP 


SE@ 0011 
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NOTE 
ALL OF THE FOLLOWING ROUTINES THE USE 


BR nd ct ed eae 


ROUTINE: TIMER 


THIS ROUTINE IS USED TO TEST THE STATUS OF 
INPUTS ANY BIT IN ANY REGISTER. 


HOWL ONG OF TIME TO 
pa THI NE. 

WHICHBIT Be CHE BIT(S) SET THAT 

REG REGISTER TO BE 


A POINTER 
SETCLR he veo. RESULTS -- EITHER SET 
OUTPUT: 


THE °C’ BIT IS SET TO INDICATE AN ERROR BUT IT 
IS TESTED BY THE IF.ERROR STATEMENT. 


ROUTINE: DATLNG 
THIS ROUTINE SETS UP A MASK FOR DATA, WITH - 
INPUT: NOTHING Ee ea, ROUTINE BUT GLOBAL 
wt Se bao OF THE OCTAL 
ie DATA BITS 
OUTPUT---- 


MASK-- A MASK OF BINARY ZEROS RIGHT-JUSTIFIED 
THE NUMBER OF WHICH IS DEFINED IN SUSWR WORD. 


THIS y the IS USED TO DELAY EXECUT 
of A SPECIFIED TIME 


Blisde ereT if WER Looe ne seh 


$ 
g 
Fs 


SERVICE ROUTINE: INTSRV 


THIS GLOBAL | ROUTINE DOES NOTHING BUT INCREMENT 


~ 


ei 


SEQ 0012 
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"INTFLAG’ EACH TIME IT IS CALLED. IT ASSUMES 
THAT THE MAIN CALLING ROUTINE WILL KNOW WHAT 
TO LOOK FOR. 


OF THE DLViit UNDER TEST 
THE CURRENT DEVICE AND BIT 


AboReSS. OF CVII-F_ URGER "Test, | ADRS #210 
IT KEEPS 


SE@ 0013 


CESSEES | 


COSMOS 
WONT LW 


CERRADO OSeSaA FORA S RRR POR BOs Vo ees 


c Eicees ey Se 


-11-DVDVC-A pont 27( 1006) 


Pil 


08-AUG-77 09:1 


001100 


B02 


O8-AUG-77 09:20 PAGE 1S 


eee Shier. 


$HPROGRAN BY ODES CHOATE 


DELON BE “Satis, 1977." we 


‘Ser. OPERATIONAL SWITCH SETTINGS 





i SWITCH USE 

;# 15 HALT ON 

i 13 TORIBIT ERROR TYPEOUTS 
Hin iS: 

te : Loe ON FEST IN SWRC7:0> 


-SBTTL BASIC DEFINITIONS 
ge TiA, ae OF THE STACK POINTER ### 1100 ### 


-EQUIV EMT, ERROR + ele DEFINITION OF ERROR CALL 
EQUIV I0T, SCOPE ;BASIC DEFINITION OF SCOPE CALL 


;#MISCELLANEOUS DEF INITIO 


Bn MLL Er 


LF= 
Healy QUEST REGISTER 
TCH REGISTER 


HARDWARE DISPLAY REGISTER 
;#GENERAL PURPOSE REGISTER NITION rep 


B cu 


‘ 33 STACK SO OTER 
;PROGRAM COUN 


RIORITY LEVEL DEFINITIONS 
0 ;;PRIORITY LEVEL O 


eer 


: 
: 
: 


JRRFHZSHTS 


3a POMTROTT 


SEQ 0014 


COe 


er BE PD = 


SEQ 0015 


BvOveR. PI 


=—MUMTNoOr. y 
eee 
rrerrre & - 
SSSESSS by e 
FREREEE 8 
Gamiatumemppenameane 3 a 
a g 
3 BAAARARORY 5 aaa 


PSEA AE ee ee 





ern JILAGSAR RE LIES A Saasaaddad Sonne eee eas 


bec fet tet tr 





Se arseraieraietetretreiry 
se eee eM OMMOOMOMOOMmMMmmam - 


_ 





eee 


| IFRS IS ISES SCE CCE CE Sa TS REG EL SO TEENS ERS ABE SR BES SNe eS 


DOe 
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“EGUIY BHBS: BHT 


-EQUIV 


mE 


cs 4 CPU" TRAP VECTOR 








ats 
725 
£68 i 
728 TBITVEC=14 $3-T- BIT 
7 eS 4 33 NT TRAP (BPT) 
73h 0 c $3 QUT TRAP (IOT) ##SCOPEx# 
733 Hana FATOR FRap (EMT) ##ERROR## 
735 TKVEC= 60 tirty RO VEC 
7% C= 64 3; TTY PRINTER re OEE TOR 
es PIRQVEC=240 ap INTERRUPT REQUEST VECTOR 
7p ADRS= RI 
742 1 PPC TSTERCRI 
743 IT= Re 
Ta T= 
74S ooo0g2 LEAD= Re ‘ 
746 FOLLOW= RY 
747 175610 175610 
a ; i THE FOLLOWING DEFINITIONS APPLY TO THE GLOBAL SUBS 
re 000000 : CLR= 
754 : 5S SE 9 0 A a SA bE a a 
755 » RCSR REGISTER SIT NAMES 
oe 5p et ; oa JH HHHHHHHHHHHHHHEE 
738 : WuSeD i T14 
760 i113 
761 004000 ACVRACT= aa ; RECEIVER ACTIVE INDICATOR 
fs mes iy 
rea UNUSED Se 
ree evens BY i RECEIVER INTERRUPT ENABL 
I 2 T : N T ENABLE 

He me He 

H 1T04 
we ep ie 

a 
an) 000001 RoRRUN= BT 100 ; READER RUN 


: 
e © 
vi 
gee ee 
oe 


SiO RRR mae, hoo cia cc RS RAS RR : 


OONOU£ We O 


DO ODDOODOOwmnm 
en 


SRR ESES 


ee 


a 
z* 


gees FRSPrss 


8 


EE 


EOe 
“yy TREYLE 27C1008) 98-0U8-77. 09:20 PAGE 18 


ee} 


+ HHH HEHE 
a i 
PRERR= 113 
Mie 
UNUSED tio 
TO93 


Hee 


Ska sanls 


jj HHH HEHEHE 
4 : TCSR REGISTER BIT NAMES 





+4 44-44 


SHesneiess 


; UNUSED 
BREAK= TOO 
;; HAEEEEERAEEEEEEEESSESEAEEEEEESESS 
Perret titi itt tri 
; UNUSED BITIS 
; UNUSED BIT14 
; IT13 
$ ITle 
$ ITll 
: He 
S UMUSED BI T08 
tDATA7= BITO7 
TDATAG= BITO6 


UYLERBREESRSURSSLS 
ei » RBUF REGISTER BIT NAMES 


of 


‘ RECEIVED DATA BITS 


GHG AES SEE EE 38 SE SE a HH HH HE a EE 
Ree mcr ag Sr nnn arene 


PROGRAMMABLE BAUD 


\ 
ff RATE BITS 


SETTING OF 
BAUDE RATE 


TRANSMITTER INTE INTERRUPT ENABLE 
MAINTENANCE SET BIT 
; SEND BREAK (CONTINUOUS SPACE) 


406-066 SESE SEE SE SE 8 a8 a aaa a a a a EB EE 
0G SEE ESE SE 46 SE SE ab A a a a a a a a dg EEE EE 





SEQ 0017 
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e ee BYTBR + TRANGHITTER DATA BUFFER 

TDATAS= 81103 . 

x T TO2 7 8 

ke TDATAL= BITOI . 

rea TDATAO= BITOO 3 7 

as | | SHH HHIHHHHHHHHHE HEHEHE HEHEHE 

68 ; FLAG BITS TO BE USE OR CLEARED IN SUSWR. 

Os 

eya 000100 

ev 000200 

2 5 10000 

2 an 33 JHE 
’SBTTL TRAP CATCHER 

_ wit 

a5 7 HALL D LOCATIONS FROM ee 77% CONTAIN A ".42,HALT™ 

aS we ;#LOCA TOR OU CONTAINS 0 f0. CATCH TRPROPURLY  LOABED VECTORS 

Bei 000174 DISPREG: .WORD 0 ;;SOFTWARE DI REGISTER 

Bee 000176 000000 SHREG: 6c aa +: SOFTWARE SWITCH REGISTER 

ge4 000137 001336 ; INP Seer ART STUMP TO STARTING ADDRESS OF PROGRAM 





GOe 
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-SBTTL ACTI1 HOOKS 
JHE 


HOOKS RED BY ACAll 
H ! 
ee SAVE PC 


ee 
Bes ere =4b 
ge ome Riess : ;;1)SET LOC.46 TO ADORESS OF SENDAD IN .SEOP 
goose * 0 5 32)SET LOc.S2 TO ZERO 
000204 " +3 RESTORE PC 
001600 -=1000 
2 APT PARAMETER BLOCK 
878 3 JE 
g73 SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
001000 re .$Xz. LOCATION 
000024 504 Sri INT TO START OF PROGRAM 
“ rere “=44 i at T AODRESS PNTR. 
885 000044 001000 SAPTHOR } Ht NT r APT 
be? 001000 2. §X TION 
:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-POP11 DIAGNOSTIC 
g33 INTERFACE SPEC. 
1 ° 
Be atta o00000 oe .WORD O 5; THO_HIGH BITS OF 18 BIT MAILBOX ADDR 
1 001174 - SMBAOR: :WORD SMAIL 3; LBOX (BITS 0-15) 
easy 001008 000005 STSTM: .WORD 5 >:RUN TIM OF tomest f 
ce in SAT AME SiS Hel aan Tint ETSS"EE Selon BREN Sit. un 
Bg ates 000030 . WORD 2; ‘ey: > :LENGTH MA $3 Of uoeps A 


HO0e 
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-SBTTL COMMON TAGS 
JHE 


Te a eae a THE VARICUS COFRIIN STORAGE LOCATIONS 
SS I pas, sas omen sees 


-21100 
: z ;;START OF COMMON TAGS 


pe co 
ok. 


io isictririninisd st 
BSSSSS8SS8S8SSSSSSSSsssss 
8 
— 
- 
8 


SI JOOOOOOOOkd 
Ba Gas i Be fe em be be be hs fee ba ee ee 8 he he hm fe fae Pe ee 
Dat 8 Bas Pet Ft pe Bee fa ft Boe ee ee 


BRINE cn SREBRES 
Beesoeeceeee: 


IV 0 Vo KV o DV o IV o Ne Ve) 
pwn bam poe fa fe be ee 


NOUN £WITUe 





OOOOOO0 000-000 00000 
oe 






af AAT 














a3 BH 
IE: , ARIE RE IBIS 
Ss a RS USN ELE 
g 3) i | 
| ‘ii 
i O18 SIL: +2 mae FEED 
bee | Bene 
164 1 000377 att A 747 Sarria ee 
ei i most Sire: “asc? <i> tPIMe FEED an oe 
‘ =e sti aman KEELE EKER E ARERR S 
nd 3 sAPT 
ef Sa z ey Rie Ges 
; BL i Sh eee 
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mes 5 fe 


cs 
a 
2 
m 


= 
4 
= 
: 
$3 
75 
fs 
: 
: 
ae 
3 


RAPP | 
ba eectestiea 
SP REC RE ERIE 


ea Bm Be Bee heme fis fe fen Gee deer fee tee Ge is 


+ aon 
Hs) “eODRESS OF EQUIPMENT UNDER TEST 
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s 


SOR IR OORCS SECA SORE 


Be Pt 2 bo he Feo das at fee en Pas Pm te fee fe Be 
poletat 
ee ed 
WM£VMO 


fale ajl=l=) 





be bs bh = he 
MLW 


ce 
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ERROR POINTER TABLE 


-SBTTL ERROR POINTER TABLE 
Me conrad NS THE INFORMATION 


EE Meee eke 

ABLE CONTAI 
: - POINTS 10 THe Dara 
HH } tS POINTS 19 THe bata 





EACH ERROR rey 

CH ITEM IN 
NENT DATA IS 
NS 4 POINTERS 

MESSAGE 
HEADER 
FORMAT 





SEQ boz2 
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5 
se STIL, INITIALIZE THE COMMON Tacs 
saorT AG TMA EIR FIRST LOCATION TO BE CLEARED 
’ i3 
pices§ SSER RE ; ;DONE? " 
23 ete .<f ;;LOOP BACK IF NO 
2 Ol — ACK, SP 3;SETUP THE STACK POINTER 
o12737 oooo20 * mE A ner, sp10T VECTOR FOR SCOPE ROUTINE 
ee ee 
13737 n00030 35 VECTOR FOR ERROR ROUTINE 
} MOV The od 
: HOV C {VECTOR FOR TRAP CALLS 
i Santee | HOV i DS Do moe VECTOR 
? 10046 HOV # 
7 CLR 331N 
12767 177433 nove 3 
ee Gite GR Pav olen 
;SIZE FOR A REGISTER. 
;;EQUAL TO A ~ 
i373? Goiese 000004 NOV eT UP ER 
18767 1 177422 MOV 3; SETUP FOF MOMERE SHICH REGISTER 
1 177416 MOV 33ND @ HARDIE GIst 
arses 1 177406 ge 3; TRY TO REPERENC 
- $3 HARDER Wa is note cL 
001544 bys: NOV ey uP On TRAP eyURN 
ieee e001 74 17966 65S: HOV s ;;POINT TO SOFTWARE SWR 
1 66S: MOV es vec ; ;RESTORE ERROR VECTOR 
7 177412 CLR 
> d00200 177417 BITB sar TSIZE, SENVH ZE, SENVM Rta 
140 Q 67S 
1 001216 177332 MOV - SSSWREG, SHR OSE APT SuITCH REGISTER 
CBTTL _TYPE PROGRAM NAME 
33 TYPE THE 


8 

z 
* 
Pad 
fa & 
. 


: 
8 
5 


- SBTTL 


: 
gaan RGR 
f 
5 
; 
RLAB 
és 
it 
18 
5 





LES Uneie worn wor 


zi 
Q 
: 
S 
age 
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1072 00184 026727 177266 000176 CMP SWR, 8SWREG ; SOFTWARE SWITCH REG SELECTED? 
1073 001 1005 BNE 71S :;BRANCH IF <I 
1074 GTSHR nal *?GET chetF SETTINGS 
1076 001662 112767 000001 177244 708: MOVB #1, SAUTOB ;;SET AUTO-MODE INDICATOR 
: rasta 000410 * BR 68S GET OVER THE ASCIZ 
-69$: .ASCIZ <CRLF>*MD-11-DvDV¢-Ax<CRLF> 


1 - 36 
1080 001712 bas: 


MOe2 
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WHILE SDEVM EQ #0 DO 





$1: 
S767 177334 TST soevn 
<<CRLF>!I HAVE NO DEVICE TO TEST.!> 
7 TYPTXT <<CRLF>!SET UP SDEVM TO INDICATE ACTUAL CONFIGURATION. !> 
TYPTXT <<CRLF>!TYPE PROCEED (P) TO INUE.!> 
000000 HALT 
ENDDO 
000674 = BR $1 
. LET INITFLAG := #1 
012767 000001 007122 MOV #1, INITFLAG 
LET BITMASK := #BIT1S ; START AT CONSOLE 
012767 100000 007112 tis MOV #B1T15, BITMASK 
004767 006666 5 to ee 
| , aD far AGREE 
-GET UNIT 
012167 177106 HOV CDRS) +, DLADD aa . 
, GET UNIT VECTOR 
011167 177104 MOV CDRS), DLVEC Let «DLV: (ADRS) 
¥ LET ADRS := DLADD 
016701 177076 MOV DLADD , ADRS 
-RCSR = DLADD + O 
LET RCSR := DLADD 
016767 177072 177074 MOV DLADD, RCSR 
LET RBUF := DLADD + #2 
16767 177064 177070 MOV RBUF 
Bere? booote 177062 ADD a2, 
16767 177050 177056 HOV _—DLADD, TCSR - ae eee 
ase booocs 177050 ADD #4, TCSR 
nas ; ool ae LET TCSRHI := DLADD + #5 
pores bhava 17 be a ADD OS TeSRHT | 
veil oven 2 ne: te LET TBUF := DLADD + #% 
ast haoooe 17 aoa ADD of Ber 
LET RS := SRSSTACK 
012705 001334 MOV #RSSTACK, RS 
; ;BRESET 
coo00s RESET 





NOe2 
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DVOVCA.P11  08-AUG-77 09:16 Tl ADORESSABILITY SEQ 0026 
2H HAHHHHEHHHHHHMMHMEHEHE HEHEHE 
115 ties 1 THs Tes, HEE | ye $5.68 ; 
He; i TIE ebiatee-theLENO A cotmeet a THE'Etvit + reseores 
i ;itit ERBLEREHEEA LEG MESELERKERELELEARAERER PRGA RRSLMMAERE RARER EE 
tt 176676 ‘ aoe 82, STIMES ;;D0 2 ITERATIONS 
t 176710 MOV #1, STESTN ::SET TEST NUMBER IN per ies BOX 
H son tease sete : SET UP INTERRUPT 
H roy a aol SETVEC &%ILLMEM, SINTSRV, #PR7 
ils MOV ta 
1143 00; MOV (RL) 
ig MOV (SP)4,R1 =~ a os 
ie 3ef “- : REPEAT 
ll $3: 
He: 176562 MOV #64, SLPERR ” rahe om 
is sy LET INTFLAG := _ 
il TST ADRS meaetinga 
tt IF INTFLAG NE #0 THEN 
2 pm 
1187 023 + FAT RROF 1 NOL 
{ Pt sme bE ENDIF 
{ $4: 
Eppsus I:s 1+ 82 
} 176720 ADD 2,1 ah path a 
5 diel ADRS © DLADD 
t ‘ mod r Aone UNTIL I £0 88. 
we 000010 cre 1,08. 
MOV R1,-(SP) 3; PUSH al ON CARRE” 
iY ; -( a 3;PUSH Re ON STACK 
F a Re 1)¢ 
(SP)+,R2 ;;POP STACK INTO R2 
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1183 002416 012601 MOV 
1164 
1185 002420 


BO3 


SSABILITY 
(SP)+,R1 


;;POP STACK INTO Rl 
;END OF TEST 
ENOTST 


SEQ 0027 
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ll ee 
Lig? > THE FOLLOWING 8 TESTS TEST ALL ‘READ WRITE’ BITS a 
o  PEXULPREBSYLYRERHRH SHH Y MMP SRERSPPRES PREVA EERERUELLERERE ELLE SE 
1189 {HHNHHHHEHHEHHEHHE HHH HEHEHE HH HHH HEEB 
TEST 2 - 

iif +i Ofris art fee on? one tars POSITION 
1192 iH THAT IS READ AND WRITE. 
1133 = EEEREPASRERELAESSKA LEAS SEH SLEREL ALS EALKAKSARER ELAS RELL ERLE 
lis SoeeL? 00010 176530 Were: Soy B10. STINES 00 10 ITERATIONS 
1198 12767 000002 176542 MOV a SF LeTn >:SET oat IN APT MAIL BOX 
1198 002436 : IF BRK NOTSETIN SUSWR THEN 
1 94 nea 032767 010000 176554 BIT SBRK, SUSHR 
i 12767 000001 176504 MOV #1, STIMES a ee create 
i eens BR Tst3 ssEXIT THIS TEST 
1 ENDIF 
i ss: 
1 ; SEE IF IT IS CLEAR 

002456 BGNSUB 
1208 002456 012767 OO2464 176424 MOV #64S, SLPERR 
tel onevey IF SBREAK SETIN 3TCSR THEN 
lel 032777 000001 176572 BIT S8BREAK, JTCSR 
lel 002472 001401 BEQ $6 
1214 ; BREAK DID NOT RESET IN TCSR 
1215 002474 ERRHRD 2, , DIDNOT 
1 i 74 104002 ERROR 2 
lel 76 ENDIF 
lel 76 $b: 
4 1 76 ENOSUB 
122 ; TRY TO SET BREAK BIT 
1 % BGNSUB 
1 012767 002504 176404 MOV 864S, SLPERR 
1 LET  @TCSR := @TCSR SET.BY s8REAK 
1 052777 000001 176552 BIS #BREAK, ITCSR 
1 ; ; STUCK TO 0 
1 1 IF #BREAK NOTSETIN @TCSR THEN 
1 090001 176544 BIT SBREAK, aTCSR 
1 1001 BNE $7 
1 ; BREAK DID NOT SET IN TCSR 
1 ERRHRD 3, ,DIDNOT 
i D0e — ENDIF 
1 002524 $7: 
_— eeas 
1 ; TRY TO CLEAR A SET BIT 
1 o02se4 BGNSUB 
} 002524 012767 002532 176356 MOV #64S, SLPERR 
1241 002532 LET  @TCSR := @TCSR CLR.BY sBREAK 


{ ‘ 





h O02S32 042777 000001 176524 
i 000001 176516 
1 1401 
7 
1 
1 
1 
1 
1 
1 
i 176330 
1 
i 176476 
1 
176466 





DH pe as B= fam fe Dt be = be ee pe 


Janno 


$10: 


$11: 


DO3 
SURESH Pe oy ET! 270m) eg 


BREAK - TCSRO SET, CLEAR, RESET 
BIC SBREAK, ITCSR 
H SHOULD CLEARED 
IF SBREAK ee Fin @TCSR THEN 
BIT S8BREAK, ITCSR 
om -_ BREAK DID NOT CLEAR IN TCSR 
. ERRHRD 4, , DIDNOT 
; ENDIF 
ENOSUB 
; NOW SEE IF RESET CLEARS IT 
BGNSUS 
MOV #64S, SLPERR 
LET  @TCSR := @TCSR SET.BY sBREAK 
BIS #BREAK, ITCSR 
- ISSUE BUS RESET 
BRESET 
RESET 
IF #BREAK SETIN @TCSR THEN 
BIT 8BREAK, ITCSR 
_ ™ BREAK DID NOT RESET IN TCSR 
ERRHRD S, ,DIDNOT 
ERROR 5S 
ENDIF 
ENDSUB 
ENDTST 
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1 3 | (HHH HiHE HE 
oo ELEFPRPARELEELEMSERERELE LEAL EE LEASE LKEAAKRE LEA LER HAERSRERR EHS 
1 :&TEST 3 MAINT - TCSRe SET, CLEAR, RESET 
1 ® JH HHHHHHHHHNBHHHHHBHHHHBBHHHHHHGHHHHHHEHHSHHHEHHHEHHHE EEE 
1276 +13: SCOPE 
ler 176346 MOV #10, STIMES 5300, 10 ITERATIONS 
i : 176360 MOV 83, STESTN ::SET TEST NUMBER IN APT MAIL BOX 
le IF SMAINTJUMP NOTSETIN SUSWR THEN 
i 176372 BIT SHQINTJUMP, SUSUR 
12 Be EXIT TEST 
12 176322 MOV #1, STIMES 
1296 BR TSt4 ;;;EXIT THIS TEST 
1236 ENDIF 
i : $le: 
12 ; SEE IF IT IS CLEAR 
1x BGNSUB 
i 176242 MOV 864S, SLPERR 
12% IF @MAINT SETIN STCSR THEN 
12 176410 BIT SAINT, ITCSR 
{See - _ MAINT DID NOT RESET IN TCSR 
1300 ERRHRD Pa T 
1 ERROR 6 
1 ENDIF 
1 $13: 
1 ENDSUB 
1305 
i ; TRY TO SET MAINT BIT 
1 BGNSUB 
1 012767 002666 176222 MOV #64S, SLPERR 
1 LET  a@TCSR := @TCSR SET.BY sMAINT 
1310 002666 052777 000004 176370 BIS SAINT, JTCSR 
131 ; STUCK TO 0 
131 74 IF SMAINT NOTSETIN @TCSR THEN 
131 74 032777 O00004 176362 BIT SMAINT, TCSR 
1314 001001 BNE $14 
131 MAINT DID NOT SET IN TCSR 
131 ERRHRD 7, ,DIDNOT 
131 ERROR 7 
131 ENDIF 
1 $14: 
i ‘ ENDSUB 
1 ; TRY TO CLEAR A SET BIT 
rl BGNSUB 
i 176174 MOV #64S, SLPERR 
1 LET  a@TCSR := @TCSR CLR.BY sMAINT 
i 176342 BIC SMAINT, aTCSR 
i SSMRINT SETIN-QTCSR THEN 
1330 176334 RIT 8MAINT, aTCSR 
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1h 002730 001401 
1 


104010 







012767 002742 176146 


052777 000004 176314 
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$15: 


$16: 





FOS 
09:20 PAGE 32 
MAINT - TCSR2 SET, CLEAR, RESET 
BeOS 


SEQ 0031 


; MAINT DID NOT CLEAR INTCSR 
ERRHRD 10, ,DIDNOT 


ENDIF 
ENDSUB 
; NOW SEE IF RESET CLEARS IT 
BGNSUS 
MOV 864S , SLPERR 


ERROR 10 


LET @TCSR := JTCSR SET.BY SMAINT 


ISSUE BUS RESET 


IF @MAINT SETIN STCSR THEN 


BIS SMAINT, JTCSR 


BIT _sNAINT, TCSR 
=o 86 5b MAINT DID NOT RESET IN TCSR 
ERRHRD 11, ,DIDNOT 


ERROR 11 
ENOIF 


ENDTST 
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161 $3 





176214 


ex oyae 
ticirge 


176166 


176160 


Gosure 932777 


003106 
003106 


me Dime Be De Om Bees Semen Poe Bean Beas Gms Pee Bae Bone Get feet Baayen mm fe 2 fone Baws fs Dos ene Bens Due fens fen Pee fiemt Qeme fene feat ee PHO hems hae Gran Bane fens be fee Pane fo fae ee Buse Qa Bes Pen Pe Pe Pa 


£ELEESELE 
ee 


CMW 


$17: 


GO3 


ey 09:20 


PAGE 33 
MAINT - TCSR2 SET, CLEAR, RESET 


z 
~~ 
a 











XMITIE - TCSR& SET, CLEAR, RESET 


at 


IN APT MAT Oe 
USE PRIORI 


HStesin ;00 00 0 eos 


sae SH EE Bet 
; POP BND 


; SEE IF IT IS CLEAR 
BGNSUB 


#65S, SLPERR 
IF SXMITIE SETIN JTCSR THEN 
SXNITIE, ATCSR 
XMITIE DID NOT RESET IN TCSR 
ra ? tPRHRD 12, ,DIDNOT 
ENDIF 
ENDSUB 
; TRY TO SET XMITIE BIT 
he “ fae LET  a&TCSR := QTCSR SET.BY sXMITIE 
f ; STUCK TO O 
IF SXMITIE NOTSETIN QTCSR THEN 
SXNITIE, BTCSR 
; XMIT DID NOT RESET IN TCSR 
ms in¥S DEP BRbSt 
ENDIF 


ENDSUB 
; TRY TO CLEAR A SET BIT 


#64S, SLPERR 
@XMITIE. aTCSR LET  @TCSR := STCSR CLR.BY sXxMITIE 
; SHOULD HAVE CLEARED 
IF SXMITIE SETIN @TCSR THEN 
EetTae, TCHR 
; XMIT DID NOT CLEAR IN TCSR 
14 ERRHRD 14, , DIDNO 
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09:16 T4 XMITIE - TCSR& SET, CLEAR, RESET SE@ 0033 


DVDVCA.P11  08-AUG-77 


wig S310 s21: 
1419 003110 


003110 
423 003110 012767 003116 175772 


116 052777 000100 176140 


000100 176130 





SSESSRR VRRVP 


. 
b= Ft be ee eee b= P= fees te 





HO3 


ENDIF 


ENDSUB 
j WOM SEE IF ESE Ges IT 


864S, SLPERR 
LET  a&TCSR := @TCSR SET.BY sXMITIE 
8XMITIE, JTCSR 
- ISSUE BUS RESET 
BRESET 
IF SXMITIE SETIN 3TCSR THEN 
SXNITIE, BTCSR 
; XMIT DID NOT RESET IN TCSR 
“ ERRHRO te. DIONOT 


ENDIF 


ENTS! 
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DVOVCA.P11  08-AUG-77 09:16 XMITIE - TCSR SET, CLEAR, RESET SEQ 0034 
1443 33 SEH 
fae ‘TEST 5 I ~ 
hide oh Pye Birt ie The trey Oe tn Tits POSITION 
1447 3% THAT IS READ AND WRITE. 
1 HESS ielalel-}-4-h-}-telalalalalahalalalalabalalalalalalalahalalalaiaialalalaiaiaiaiaisiaialaiaisinialeiaislelaisisicisisialel 
S| 031 i Dlerer Oe 000010 176010 tts: Rov ve 310 TIMES TERATIONS 

Of I 
ics 00000S 176022 MOV df IN APT MAIL BOX 
i ™ oe IF i Is 
i 012767 003164 175724 MOV nal. asus 
: @RCVRIE SETIN ORCSR THEN 
032777 000100 176066 BIT SRCVRIE, RCSR 

tee mans -_ -_ RCVRIE DID NOT RESET IN RCSR 
{ ERRHRD 56D IDNOT 
1 ERROR 35 
1 ENDIF 
1 $23: 
i ENOSUB 
1 ; TRY TO SET RCVRIE BIT 
{ 175704 MOV #64S, SLPERR 
iq 176046 BIS  SRCVRIE, @RCSR eh ne re a oe 
tus ’ ; STUCK TO 0 
14 IF SRCVRIE NOTSETIN @RCSR THEN 
i 176040 BIT #RCVRIE, IRCSR 
lW7e ah RCVRIE DID NOT SET IN RCSR 
14 ERRHRD a B DROT 
14 ERROR 236 
14 ENDIF 
14 $24: 
i ENOSUB 
1 ; TRY TO CLEAR A SET BIT 
1 BGNSUB 
i 175656 MOV #64S, SLPERR 
1 LET  @RCSR := QRCSR CLR.BY SRCVRIE 
1 176020 BIC #RCVRIE, IRCSR 7 
1 ; SHOULD HAVE CLEARED 
1 IF @RCVRIE SETIN @RCSR THEN 
1 176012 BIT SRCVRIE, ARCSR 
i '. ed RCVRIE DID NOT CLEAR IN RCSR 
i ERRHRD 57 IDAOT 
1 ERROR 37 
1 ENDIF 
is as si 
1498 
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14999 ; NOW SEE IF RESET CLEARS IT 
1500 BGNSUB 
iene 003252 012767 003260 175630 MOV #864, SLPERR 
meee sees es LET | @RCSR := ORCSR SET.BY #RCVRIE 
003260 mance 052777 ARCSR 
1505 , ; ISSUE BUS RESET 
1 003266 coal BRESET 
ae ieagi —_— IF #RCVRIE SETIN ORCSR THEN 
003270 932777 000100 175762 I SRCVRIE, @RCSR 
- RCVRIE DID NOT RESET IN RCSR 
: - ERRHRD 40, ,DIDNOT 
ENDIF 


CKLOOP 


NOU 


8 be ps pe p= fe fos Pe 





ENOTST 


Be fee bh B= hee Bee aw Bre fame freee Seen fet fine fee 


MAINDEC-11 
DVOVCA.P11 


a8 Be fae Fas be as be Bee Pet Bm FS Fe 08 Bam ee Pt) oo Dee ae Bs De het = fe SS Re es ba Ree 


BTU Ob SrA LOH See TES 


& 


44 


-DVDVC-A 
08-AUG-77 


MACY11 27(1006) 
09:16 
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TS RCVRIE - RCSR& SET, CLEAR, RESET 


iii it iiiiiiieiiiitetiiiieetiiiog 
+h THE Fi 


OLLOWING 4 TESTS VERIFY 
3% THAT RESET CINIT) INITIALIZES READ OMLY BITS. a 


+ 3 JHINHHHIHHHHIHIHHIHIIEHHIHHHHHH HHH HHH HHH HHH EE 
:KTEST 6 TEST THAT RCVRDONE - RCSR 7 - IS CLEARED BY INIT 
© ¢ $6 36-36-36 SE SE SE AE AES SE EE SE SE SE Sa aS NS aa a a a aa aE 
tST6: SCOPE 


POV sec HeeIN” «FSET FEST RUMGER IN APT MAIL BOX 


BGNSUB 
MOV #64S , SLPERR 


T , ORCSR 
Bry gGVRDONE 
sRCVRDONE SHOULD 
* RCVROONE DID NOT 
-REISSUE RESET 
BRESET 
ENDIF 


cKLOOP 
ENDTST 


IF #RCVRDONE SETIN SRCSR THEN 


ERRHRD 41,HRESET, DIDNOT 


;ALLOW LOOPING AFTER ERROR 


HAVE CLEARED BY INIT 
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DVDVCA.P11  08-AUG-77 09:16 Tb TEST THAT RCVRDONE - RCSR 7 - IS CLEARED BY INIT SEQ 0037 
1S$59 3 7 JHNIHINIHIHIHIHHIHIHIHIHHINIHIHIIHHIHIIHIHHIHIIHHIHIHIHIHIHIHIHIHIIHIHEEHE HEHE EE 
1399 jj RERERSHUARERERERER SEEN STNERURCT Ree il © 16 CLEARED BY INIT 
SRTEST 7 T RCVRACT - RCSR 11 - IS CLEARED BY INIT 
1 oo SEELERLERMERY BREN EP SSESERRESRSLERERE LSE RERSRSRRER REE ER RRR EEEE RE 
fee BBaeaG BTS9e7 et7:  BcOPe 
000010 175606 #10, STIMES ;;00 10 ITERATIONS 
0033S2 012767 000007 175620 MOV a7, STESTN ::SET TEST NUMBER IN APT MAIL BOX 
i 
: IF CONSOLE E@ 8TRUE THEN 
026727 005703 000001 CMP CONSOLE, #TRUE 
{ we -_ EXECUTE TEST 
{ 03: ELSE’’ 
1 BR $31 
1 $30: 
i 03. IF WRAP SETIN SUSWR THEN 
f 020000 175620 BIT WRAP , SUSWR 
1 BEQ $32 
1 ;; EXECUTE TEST 
0; ELSE 
; BR $33 
$32: : 
1 IF SMAINT SETIN SUSWR THEN 
1 000004 175606 BIT SAINT, SUSHR 
;;EXECUTE TEST 
ELSE 
1 BR $35 
1 $34: 
i EXIT TEST  ; LINE MUST BE TERMINATED 
000001 175534 MOV #1, STIMES 
1 BR TStio :::EXIT THIS TEST 
i 103426 ENDIF 
WU. $35: 
| i ENDIF 
1 $33: 
1 ENDIF 
$31: 
BGNSUB 
i 003434 175454 MOV 864S, SLPERR 
j IF #RCVRACT SETIN ORCSR THEN 
1 004000 175616 BIT SRCVRACT, IRCSR 
i BEQ $36 
1 sRESET SHOULD RCVRACT 
CET STCSR := aicsh SLR BY eRRINT 
t 000004 175612 BIC 8MAINT, JTCSR 
161 ERRHRD 44, HRESET, DIDNOT 
i ERROR 44 
1 ij TESTING EFFECT OF RESET ON BIT 
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i 
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17 


TEST THAT RCVRACT - RCSR 11 - IS CLEARED BY INIT SEQ 0038 
;RCVRACT DID NOT CLEAR IN RCSR 


APeepY ANOTHER TRY 


ENDIF 


“ALLOW LOOPING ON ERROR 
CKLOOP 


RESET 


ENDTST 


NO3 
BORURE ett PONE Bier Basie! 2761006) ,f8-AUG-77, D9; FRy RCVRACT - RCSR 11 - IS CLEARED BY INIT SEQ 0039 


1 





99 

3 3 JHEHHNHHHHNHHHHHHHHHHH HHH HHH 

TEST 10 TEST THAT XMITRDY - TCSR 7 - IS SET BY INIT 

* REESE 
o00004 tST10: SCOPE 


a 003456 
Bpauce «BiS>e> Gooole izecos Hoy oSIO*STEURR «0 EERR “SEETERGhGCR IN APT MATL BOX 


cata BGNSUB 
74 012767 003502 175406 MOV #645, SLPERR 


IF SXMITRDY NOTSETIN @TCSR THEN 
: 000200 175554 BIT hate hia 


Raffnoy OVD wor Se¥ IN tose (AFTER RESE 
pee oe: 1 wanes next 

ieee? 
RESET . 


ENDIF 


“ALLOW LOOPING ON ERROR 
CKLOOP , 


ENDTST 


0 0 0 0 0 0 0 0 0 0 0 
‘ge reereel i reerpered > ' 
lee , " > se 





BOY 
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1662 33 botebeted 

1 : 3 JHHIHHINHNIMNHIHIHHIHHHMHHHINHHINHHIHNHHHIHINHIHIHi HHMI HHIHIHHIHE HEHE 3 

1 jATEST ll TEST THAT xaIT ROY ICR? ~ 

ieee if Se net rf chte at HINA AMOUNT OF TINE. 
16& oo EELFERAPRREREE REAPER REPELS PRARBUV EERE LES WERLKRRERERELERURRES 

ibs 5 012767 10 175432 tet: Soy 810, ST -DO 10 ITERATIONS 

i 352m 012767 ee 175444 MOV oP Sieom *3SET Set NUMBER IN APT MAIL BOX 

tere IFB APTCON EQ #TRUE THEN 

1673 126727 005526 000001 CHP BPTCON, 8TRUE 

187° 012767 000001 175406 MOV #1, STIMES a 

16 000513 BR TStie >;;EXIT THIS TEST 

16 ENDIF 

Ib $40: 

1 LET PASS := #1 ;INIT COUNT OF TIMES THRU 
1 012767 000001 000212 MOV #1,PASS 

ites nn LOOP ; START OF LOOP 
1 ‘ ; MAX OF 2 TIMES THRU 
1696 LET ERRORFLAG':= &#CLR 

1687 012767 000000 000206 MOV 8CLR, ERRORFLAG 

ites laeae are ee LET EXITFLAG := #CLR 

163 —— on : LoD “Tau WITH One CHARACTER 

16 : CHOU BY OF ERY O BET WAIT 


? SINCE UART DOUBLE BUFFERS ITS INPUT) 
“SEND A CHARACTER 
LET ity :B= 80 
SWAIT A MAX? 
iF SO HSEC F 
iXMIT RDY TO SET IN TCSR 


a 


108077 175466 CLRB @TBUF 


SRBGRR LG 


1701 ; a ore CALL’ TIMER IN <8S, 8XMITRDY, TCSR, #SET> 
1 isi 177777 MOV aStT,-(RS) 

1 10 O1 75450 MOV TCSR’ -(RS) 

1 4 Ol boozan MOV 8XMITROY, -(RS) 

1708 1 000005 MOV #5, -(RS) 

1 Doses 004767 004632 JSR PC’ TIMER 

1708 012605 MOV (SP)+,RS 

iri . iNOY REET ConorTION SHIN BEE eaMIT 
1711 003632 IF .ERROR 

1315 oom me sine XMIT RDY DID NOT SET IN TCSR 
1714 003634 ERRHRD 66, , DIDNOT 

1715 104066 ERROR 66 

1716 003636 ENDIF 

1717 003636 


$43: \ 
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DVDVCA.P11 08-AUG-77 09:1 Tll TEST THAT XMIT ROY - TCSR 7 - CLEARS SEQ 0041 
71 
18 OAD TBUF WITH A 


COND CHARACTER 
; Seek «PED LATELY T Tha TROY IS CLEAR 
SEND SECOND CHARACTER 
LET STBUF :B= 80 





1 
1 
1 
1 
i723 
1 nek 175426 CLRB § aTBUF 
ie ees NOP ; GIVE w ee TO CLEAR es 
i ¥ cIPT OFA CRRTER 
1 IF sintS5t IN aTCSR 
i 032777 oo00200 175412 BIT SXHITROY, BTCSR 
1733 ; XMITRDY DID NOT CLEAR IN TCSR 
1733 003654 rind x Waitin, fs LET ERRORFLAG := SET 
te osparet ie en ; DEFER ERROR TYPEOUT 
173 003662 - ie fas ELSE 
1333 boxes OO S44: 
1740 sWAIT A MAXIMUM 
7a OF SO MSEC FOR 
1 :XMIT RDY TO SET IN TCSR 
1743 003654 CALL’ TIMER IN <85, SXMITRDY, TCSR, 8SET> 
1744 MOV RS,-(SP) 
eae t ey 561, -(RS) 
17 1 HOV exHITRDY, ~(RS) 
748 MOV 85, -(RS) 
tyeg OOSrie CSP ERG 
173 neat , IF .ERROR THEN 
1 14 BCC S46 
1 :XMIT ixnIT ROY OID NOT NOT SET IN TCSR 
t tf ERROR 70 v0 
: ; ENDIF 
1738 ENDIF ; OF DEFERED ERROR CALL 
1766 IF ERRORFLAG EQ 8SET THEN 
1761 CMP ERRORFLAG, sSET 
1 BNE $47 
i763 IF PASS GT #1 THEN 
1 CMP PASS, #1 
1765 BLE $50 ; as 
17e8 bparno ee 1 ror 
1 ERROR 67 
1 LET EXITFLAG := 8SET 
1 MOV 8SET, EXITFLAG 
if ENDIF 
i ELSE ; NO ERROR 
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003750 000403 $47 BR $51 


012767 177777 MOV SSET,EXITFLAG 
$51: 
pobre? 000014 177777 CMP EXT WUAS, car? 
74 


LET EXITFLAG := SSET 
ENDIF 
EXIF EXITFLAG EQ sSET 
ENOLOOP 
$41 


IT ; SKIP AROUND FLAG WORDS 
:;;EXIT THIS TEST 


ERE RES EERE EP ERERED 


i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ENDTST 





e044 


MAINDEC-11-DVDVC-A MACY11 27(1006) O8-AUG-77 09:20 PAGE 44 
DVDVCA.P11 











08-AUG-77 09: 16 Til TEST THAT XMIT RDY - TCSR 7 - CLEARS SEQ 0043 
44 SET TTT TTT TO TDUTT Ike f CHET FROM TER (HLTH PAIN 

17s jATEST 12 TEST THAT OUTPUTTING 8 CHER FROM TBUF (WITH MAINT SET) oes 
te: i Be ber REY RO he's: 
1 téTi2: SCOPE 
1 12767 000010 175146 MOV $10, STIMES ;;00 10 ITERATIONS 
i 012767 000012 175160 MOV #12, STESTN ::SET TEST NUMBER IN APT MAIL BOX 
1 IF SMAINTJUMP NOTSETIN SUSWR ORB APTCON EQ sTRUE 
1 932767 040000 175172 BIT SMAINTJUMP, SUSWR 
1 1 BEQ 
1 727 00S232 000001 CPB - APTTCON, # TRUE 
1808 1004 LUNE $53 
1 $Se: 

Bos 7 000001 1751/2 MOV #1, STIMES — i 

1 thie BR TSti3 ;;;EXIT THIS TEST 

1 ENDIF 

ip $53: 

14 T THE MAINTENANCE BIT 

LET aTcsh : a QTCSR SET.BY sMAINT 

} BIS SMAINT, JTCSR 

B19 SOMOEE 012767 OO4064 175024 MOV #64S sagan 

e26 1 END 'A CHARACTER AND LET IT WRAP AROUND 

Bec LET @TBUF :B= 80 

tet 105977 175200 CLRB $ aTBUF 

; WAIT A MAXIMUM OF SO MSEC 
FOR RCVR T0 IN 





at 


ieft TIMER IN < 85, SRCVRDONE, RCSR, #SET> 












ee eee ee ee ee ee ee ee tee 


Be 10546 MOV RS, -(SP) 
2 i 15e166 Nov Rate) 
33 1 1 MOV BRCVRDONE, ~(RS) 
ee OOMLIS OO 344 Me OPR’TIMER 
Hig bie0s NOV (SP)4, RS 
53 -DIDN’T SET IN TIME 
Seed F.ERMR THE 
gx 120 103004 BCC $s4 1 IN 
a 0041 Let’ : Gin i rueave aT A BY sMAINT 
a 122 042777 000004 175134 BIC MAINT, JTCSR 
1 ERRHRD 71, ,DIDNOT 
84S 130 104071 ERROR 71 
Be 1 ENDIF 
r $54: 








FO4 
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ies 004132 ENOSUB 
ies) ou aa ecrste 
Ie ae See pom a hol teat 11 T IT IS SET SEE IF IT CAN BE RESET 
; THIS ALSO WILL CLEAR MAINT. BIT 
tee eye oo0o0s RESET 
rl IF SRCVRDONE SETIN ORCSR THEN 
1 i 032777 000200 175110 BIT SRCVRDONE , IRCSR 
i ‘ deve - - - RCVRDONE DID NOT RESET IN RCSR 
1 5g ERRHRD 72, ,DIDNOT , 
1 15) 104072 ERROR 72 
1 154 ENDIF 
1865 i SSS: 
14 1 ENDTST 


MAINDEC-11-DVDVC-A MACY11 
DVDVCA.P11 08-AUG-77 09:16 


f= O=o ba bee 
Be ee oe 


a 


0000 1 


1 9000 1 


FIORE Bae SRE OR Bd toad 





108077 175026 


ae pe Be De ee ae be ae ae be ba ae Be Pe Pe se be ae Pe an Be ee Pe me ae en be Pe an Pe ae Pee Be Pe Pe me Pe Pe Pe De me Ps Pe Pe Pe Pe Pn 


27( 1006) 


175034 
174652 


174762 





GO4 


08-AUG-77 ee PAGE 46 
Tl2 TEST THA 





é 


8 


8 84883 


T OUTPUTTING A CHAR FROM TBUF (WITH MAINT SET) SEQ OO4S 





TEST THAT RCVRDONE IS CLEARED BY READING RBUF 


western «8 Tet reer IN APT MAIL BOX 


IF SMAINTJUMP NOTSETIN SUSWR ORB APTCON EQ SsTRUE 


SMAINTJUMP , SUSHR 
CON, #TRUE 
$57 
EXIT TEST 
ata -::EXIT THIS TEST 
EMT 
- SET MAINT. BIT 
LET aTCSR := arcan egy SMAINT 
SMAINT, aTCSR 
BGNSUB 
mens, 
A CHARACTER WITH MAINTENANCE 
: SET, AND WAIT FOR XMITRDY TO SET. 
OUTPUT A CHARACTER 
uct STeUF :B= 80 
aTBUF 
; WAIT MAXIMUM oF S00 MSEC 
> FOR RCVRDONE TO SET IN 
RCSR 
“- deit TIMER IN <#50, SRCVRDONE , RCSR, #SET> 
T,-(RS) 
aSeT tts) 
, (RS) 
850, -(RS) 
PC, TIMER 
(979,06 DID IT BECAME READY? 
aa IF.ERROR THEN 
;RCVRDONE DID NOT SET IN RCSR 
; CAN NOT WITH MAINT T 
LET aT := aT 
SNAINT, JTCSR 
- ERRHRD 73,, DIDNOT 
. SET IT T 
LET a@TCSR := atesk Set. 
SAINT, JTCSR 


ENOIF 


HOM 
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1s 004312 ENDSUB 

1 ; NOW THAT IT IS SET LETS SEE IF READING THE 

ie : BUFFER CLEARS RCVRDONE. 

i -READ BUFFER 

1930 9031 LET RO :B= aRBUF 

ig 312 117700 174744 MOVB § @RBUF ,RO 

i aeaate 000200 174734 IT SRCVRDONE , IRCSR og aie Nemes 

tase GOSeN Ob1407 Q = $6 sor CLEA IN 

i REM UROT LERVE ni PRINT MY Sey" 

1 326 LET ’ @TCSR := @TCSR CLR.BY sMAINT 

1 042777 000004 174730 BIC sMAINT, aTCSR 

1 ERRHRD 74, , DIDNOT 

1 104074 ERROR 74 

1 SET IT BACK TO CONTINUE 

143 OON3%5 LET aTcSA := aTCSR SET.BY SMAINT 

1 052777 000004 174720 BIS 8MAINT, JTCSR 

isue OoMau4 $61 — 

tau 004344 P ENDTST 











IF COUNT HI MAX THEN 
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DVDVCA.P11  08-AUG-77 09:16 713 TEST THAT RCVRDONE IS CLEARED BY READING RBUF SEQ 0047 
1 35 JHE 
1 j  PELEAE MEET Rev © Rae il eis 
127 igresi TREN AnctaRt Bit 18 RECEIVED AND 
ies : CLEARS WHEN RCVRDONE - RCSR 7 - SETS 
© + IEEE EE 
pee | ONePe? 10 174604 Tete 10 ITERAT 
Ot | ee 
{see ptSFES 000014 174616 MOV 1a Steet es o eT Aeon IN APT MAIL BOX 
1 IFB APTCON EQ SFALSE AND SMAINTJUMP SETIN SUSWR 
iss Fito 004700 00000 CMPB s APTCON, @FALSE ; 
1 o40000 174620 ha SRAINTJUMP, SUSUR 
1961 001401 BEQ $62 
1s ;; EXECUTE TEST 
1 ELSE 
1 000404 BR $63 
: $62 
EXIT TEST 
1 012767 000001 174546 MOV #1, STIMES 
2 000526 BR TSTis 5s EXIT THIS TEST 
4 $63 , 
ier 14 Ba a at Fee LET @TCSR := 3TCSR SET.BY sMAINT 
ian 2 112767 00000 o04202 MOVE ALR “pe - er 
1 bowi30 ’ LET COUNT := 80 
1 005067 000232 CLR COUNT 
1 sLOAD A CHARACTER INTO TBUF 
1 WAIT FOR RCVRACT TO SET 
i -SEND A CHARACTER 
: aan donee LET OTBUF :B= 80 
: ve REPEAT 
1 IF #RCVRACT SETIN @RCSR THEN 
i 174612 BIT BECVRACT , ORCSR 
1 LET FLAG :B= aSET 
1 004154 MOVE = 8SET, FLAG 
ELSE 
BR Sbb 
$6S: 
1 LET COUNT := COUNT + al 
i INC COUNT 
ENDIF 
1 $66: 
i UNTILB FLAG EQ #SET OR COUNT HI MAX 
177777 CMPB = FLAG, #SET 
BEQ $67 
000162 CHP COUNT , MAX 
a BLOS $64 
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DVDVCA.P11 08-AUG-77 09:16 T14 TEST THAT RCVRACT - RCSR 11 - SETS SEQ 0048 
ital govs04 026767 000156 000152 CMP COUNT , MAX 
2 101410 BLOS $70 
Avner DID NOT SET IN RCSR. 
: CAN NOT LEAVE WITH MAINT SET 
posi LET ° @TCSR := @TCSR CLR.BY SMAINT 
1 14 042777 000004 174S42 BIC #MAINT, ATCSR 
D045 25 ERRHRD 75,, DIDNOT 
DOYSS2 104075 ERROR 75 
yO 2 7 000001 174426 MOV $1, STIMES on 
pf ese Bieaee BR retis ;;EXIT THIS TEST 
ENDIF 
P =O04S34 $70: 
;CHECK FOR TIMING OF RCVRACT. CLEARING 
at VS RCVRDONE SETTING 
=8 F 
a 2 “ WHILE SRCVRACT SETIN @RCSR DO 
SNE 004000 174516 | ~—S«BIT —sBRCVRACT, @RCSR 
5067 Borde Bo Se 
202% : : IF @RCVRDONE SETIN QRCSR THEN 
03 | eat 4 ee oe Q =< 
5032 IF @RCVRACT SETIN @RCSR THEN 
503 032777 OO4000 174476 BIT #RCVRACT, @RCSR 
go: 001410 BEQ $74 . 
uk ; CAN NOT LEAVE WITH MAINT SET 
: ' LET STCoR. := @TCSR CLR.BY sMAINT 
042777 000004 174472 BIC SNAINT, JTCSR 
oy07e ' ERRHRD 76, DONEACT 
. 7 NO TINUING 
' Bor oer 
012767 000001 174356 MOV #1, STIMES 
BR TStis :3;EXIT THIS TEST 
ENDIF 
$74: 
ENDIF 
$73: 
000753 BR $71 ' 
$72: 
- RCVRACT NOW. 
tF RC NOTSETIN @RCSR THEN 
932777 000200 174444 BIT SRCVROONE , IRCSR 
1010 BNE $75 





SRE NOT LEAVE WITH MAINT SET 
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LET  @TCSR := @TCSR CLR.BY sMAINT 
BIC aMAINT , @TCSR 
ERRHRD 77, ,DIONOT 
ERROR 77 
res EXIT TEST 
BR far {2 3;;EXIT THIS TEST 
ENDIF 





PEPE Mae 
ur PS SE 


@RBUF , RO 
IF SRCVRDONE SETIN @RCSR THEN 
#RCVRDONE , ARCSR 
$76 NOT IN 
SRE NOT LEAVE. WITH. RAINY 
LET aTCSR := aTeSR CLR.BY sMAINT 
SMAINT, JTCSR 
ERRHRD 100, ,DIDNOT 
100 
ENDIF 
EXIT 
TST15 ;;;EXIT THIS TEST 
0 


ENDTST 


SEQ 0049 





LOY 
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°° SE-SE-SE-SE46 $6 M6 SE SE J SE Sb aE 0-0 -S SE-SE SE SSE Sb SS SS 0 0 a 


72 JHGHBHHNHHHHHEHHHIHHIHEHEHiHHHiHHHHHHH HHH HHH HHH HHE 
TEST 15 TEST THE OVERRUN BIT - RBUF 14 
1 es ZJ8HHMHHMHBHBMHBHBHBHEHHHHBHHHEY 0 UHIHE 
1 79 pogn4 tST1S: SCOPE 
1 12767 000010 174260 MOV 810, STIMES ;;00_ 10 ITERATIONS 
1 004700 012767 000015 174272 MOV #15, STESTN >:SET TEST NUMBER IN APT MAIL BOX 
1 IF SERRBITS SETIN SUSWR ANDS APTCON EQ sFALSE TH 
1 93076 100000 174304 BIT ITS, SUSWR 
1 714 OO141 BEQ 
1 716 004344 000000 CMPB = APTCON, #FALSE 
1 1ole BNE $77 
il IF SMAINTJUMP SETIN SUSWR THEN 
te GON? eb 932767 040000 174264 BIT SHE TNTJUNP , SUSHR 
t 3; NULL ---EXECUTE TEST 
14 ELSE 
i 000404 BR $101 
$100: 
1 EXIT TEST 
12767 000001 174212 MOV #1, STIMES 
pieces BR TStie :;;EXIT THIS TEST 
ENDIF 
$101: 
ELSE 
000404 BR $102 
$77: 
EXIT TEST 
912767 000001 174200 MOV #1. STIMES 
BR TStié 3;;EXIT THIS TEST 
ENDIF 
$102: 
762 LET aTCSR := @TCSR SET.BY sMAINT 
762 052777 OO0004 174274 BIS #MAINT, JTCSR 


012767 174112 #64S, SLPERR 


BGNSUB 
; WITH 
RY ob REET TD seceor 
OUTPUT 1 CHARACTER 
LET QTBUF :B= 80 


GO AWAY FOR SOO M SEC 
WAITUS SO 


Bee ke Ba f= RF Pt Be em fee Ht fe Pet > Be me Bs Be Bs fees be Be pf Bs ee hee et Bee fe fen Ge Be fa pe 
: 
F 
zs 


POSESERESSASLOSER PORES REVO PUNE is 
38 
aa 
8 
3 
S 


ce 
_ 
S88 
SRR 
Ra 


7 
£o 


MO4 
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DVDVCA.P11  08-AUG-77 09:16 TiS TEST THE OVERRUN BIT - RBUF 14 SEQ 0051 
gine “OUTPUT 2ND CHARACTER 
SUSuie 05077 174246 CLRB  aTBUF LET STE 18 00 
sie os : -LET OVERRUN HAPPEN 
warTus SO 
2157 ooso22 MOV RS (SP) 
st mM tale 
ib MOV (SP)+, RS 
READ AND ERROR BITS 
2 ier ACAD BEER 
164 MOV RBUF , RY 
1 -IT DIDN’T 
ise IF siderk OO TSETIN R4 THEN 
if BIT SORERR sR4 
1? one DID NOT SET IN ROUF ‘ 
bie cont aYESR CUR BY SAINT 
1 174206 BIC SMAINT, aTCSR 
174 ERRHRD 101, ,DIDNOT 
i%e ERROR 101 
1 - NO COMPOUNDING ERRORS 
1 iO SE, 
1 174072 MOV #1, STIMES 
1 BR TSti6 3;;EXIT THIS TEST 
1 al ENDIF 
1 . 
185 ;NOW SEE IF ERROR BIT SET WITH OVERRUN ERROR: 
18% BGNSUB 
j 012767 005076 174012 MOV #64, SLPERR 
is eam ““ IF #ERROR NOTSETIN RY THEN 
1% toe pbiote BNE $io4 ° 
1 ERROR DID NOT SET_IN RBUF 
1 : CAN NO WITH MAINT SET 
19% OC 104 LET ' @TCSR := @TCSR CLR.BY sMAINT 
195 005104 042777 000004 174152 BIC SMAINT, JTCSR 
1 poe 11g ERRHRD 102, ,DIDNOT 
i D0Silé 104102 ERROR 102 
jcHHEN ORERR SET. 
174036 MOV STIMES exit - 
BR ratio ;s;EXIT THIS TEST 
ENDIF 
$104: 
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012767 


601010 


012767 





005132 


000001 





173756 


174122 


174114 


174000 


173720 





173722 


174014 


08-AUG-77 09:20 PAGE S3 
T1S TEST THE OVERRUN BIT - RBUF 14 
BGNSUS 
MOV #64S, SLPERR 
CHECK REAL RBUF TO SEE IF ORERR IS STILL SET. 
IF SORERR NOTSETIN ORBUF THEN 
BIT SORERR, JRBUF 
BNE $105 
;READING REUE CLEARED ORERR . 
Let ’ Cotte AVR oat wRINT 
BIC SAINT, aTCSR 
ERRHRD 103, ITCLRED 
a SKIP REST OF TEST 
igtt IES} 
MOV #1, STIMES 
BR  TStis ;;;EXIT THIS mis 
$105: 
ENDSUB 
BGNSUB 
MOV #64S, SLPERR 
NOW SEE IF THEY CLEAR WHEN ANOTHER CHAR. IS RECEIVED 
“SEND A CHARACTER AROUND. 
LET STBUF :B= #80 
CLRB  aTBUF 
jue IT CIRCULATE 
warTuUs SO 
MOV -(SP) 
MOV (RS) 
JSR WAIT 
MOV (SP)+,RS 
IF WORERR SETIN ORBUF THEN 
BIT 8ORERR , ARBUF 
Q $106 a ot 
"CY ROT L ave uit TH PRINT SET 
vay ' mn NT 
BIC SMAINT, JTCSR 
ERRHRD oh, A! 
ERROR 104 
s-AFTER RECEIVING ANOTHER CHAR 
dig ay 
TST 
MOV #1, STIMES 
BR TStib 3;;EXIT THIS cei 
$106: 
IF SERROR SETIN ORBUF THEN 
BIT ERROR, IRBUF 


NOY 





BOS 


MAINDEC-11-DVDVC-A MACY11 27(1006) me aeatt “4 09:20 PAGE SY 
DVDVCA.P11  08-AUG-77 09:16 T1S TEST THE OVERRUN BIT - RBUF 14 


BEQ $107 

; ERROR BID NOT 

; CAN NOT LEAVE W 
@TCSR := @TCSR CLR 


ERRHRD 10S, ,DIDNOT 


LET 
BIC SMAINT,@TCSR 


ERROR 105 


ENOIF 


344 
BR TST16 ;3;EXIT THIS TEST 
ITCLRED: 


-ASCIZ /READING RBUF CLEARED OV 





COS 
OER ett Ore ic-77 Bec ige 7 tte) Te Mee TE OVERRUN BIT - ROUF 14 SEQ 0054 


{i Reaueayeateeteeeeeeeanessiseestareaneaeeaneaneaneaeaseaseaeeit 


j ATEST 16 Teer ata BAUD RATE TEST 
i Tse , TMiLL ge Feo oe rube TB SEE 
i IF NEW TIME I Then PREVIGHS 
, GSHHHNHHHHHHHHHHHHHHHHNHHHHHHHHHHHHHHHHHHHHHHHBE HEHE 
tST16: SCOPE 
173622 MOV #10, KES ;;00_10 ITERATIONS 
173634 MOV OSes 3 3SET NUMBER IN APT MAIL BOX 
;;NOTE: IF RATE TEST IS TO BE RUN ON THE APT CONSOLE 
3 THE OF T MAKE CERTAIN THAT OCATION SUSHR IS 
He WI he mS BITS <11:8> (9600 
IF 8PBR SETIN SUSWR AND SMAINTJUMP SETIN SUSWR T 
173646 BIT sPBR, 
BEG $110 
173636 IT SMAINTJUMP, SUSWR 
BEQ $110 
IFB APTCON EQ #FALSE THEN 
000000 CMPB = APTCON, #FALSE 
BNE $111 
ese??? NULL --- EXECUTE TEST 
BR $112 
$111: 
EXIT TST 
173554 MOV #1, STIMES 
BR TSti7 >; ;EXIT THIS TEST 
ENDIF 
$lle: 
ELSE ; CATCH IT HERE 
aoee $113 
EXIT TEST ; IF EITHER OF CASES FAIL 
173542 MOV #1, STINES 
BR TSti7 ;s;EXIT THIS TEST 
ENDIF 
$113: 
3% LET ERRCHK := #0 ; CLEAR ERROR WORD 
KE CLR ERRCHK 
Ke LET OLD := #1 
Kx 000322 MOV #-1,0LD 
b333 LET OLD+2 := #-1 
a3 000316 MOV #-1,0LD+2 
5335 LET @TCSR := @TCSR SET.BY sMAINT 
a3 36 173616 BIS 8MAINT, JTCSR a oan 
P33 INCR R3 ifCS an #15. BY al 
2339 CLR R3 
sxe BE $114 


$115: 
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T16 PROGRAMMABLE 


DVDVCA.P11  08-AUG-77 09:16 BAUD RATE TEST 
INC R3 
$114: 
020327 000017 CMP #15. 
003062 BGT sie 
017700 173574 MOV @RBUF , RO 
116377 005676 173572 MOVB = RATES(R3), JTCSRHI 
CLR BIT 
CLR aTBUF 
CLR NEW 
CLR NEW+2 
$117: 
TST BIT 
BNE $120 
BIT #RCVRDONE , ARCSR 
BEQ $i2i 
MOV #1,B1T 
BR $122 
$121: 
005267 000210 INC NEW 
ADC NEW+2 
: $l2e: 
x": BR $117 
: $120: 
CMP NEW+2, OLD+2 
BHIS $123 
BOEEEE OOOYI4 BR «S124 
2333 005560 $123: 
asad 026767 000166 000170 CMP NEW+2, OLD+2 
a 005566 001005 BNE $i2s ’ 


LET RO := ORBUF 
Ler SfCRAY sB> RATES(Ra) 
Let Att t= 90 
icy itersiz 30 


; INITIALIZE COUNTER 
LET := 80 


LET NEW+2 := 80 
WHILE BIT E@ #0 DO 


IF @RCVRDONE SETIN @RCSR THEN 
;DONE - ITS READY 

LET BIT := 
ELSE 
s OTHERNTSE” INCREMENT TIME 

LET NEW := NEW + 81 

LET NEW+2 := NEW+2 + CARRY 
ENDIF 


-SIGNALS DONE 
ENDDO 


IF NEW+2 LO OLD+2 THEN 


; OK 
ELSE’ 


- NEW+2 >= OLD+2 
tf NEW+2 EQ OLD+2 AND NEW LO OLD THEN 
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2398 005570 026767 O001S4Y 0001S 
103001 








: 012767 
i 
is 
ip 016767 
1 016767 





TEE Les Bae wRe GRE BGS 


ee 


000017 


000132 


173412 


EOS 
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T16 PROGRAMMABLE 


$125: 


$126: 
$124: 


$116: 


$127: 


CMP 
BHIS 


é 


BAUD RATE TEST SEQ 0056 
NEW, OLD 
$126 
; OK 
ELSE 
$126 
;NEW+2 > OLD+2 OR 
j (NEWK2 = OLDs 2 AND 
‘BAUD RATE DIDN’T CHANGE 
LET ERRCHK := @B81T2 ; SET ERROR INDICATOR 
#81T2, ERRCHK 
ENDIF 
ENDIF 
-UPDATE OLD TIME 
LET OLD := NEW 
NEW, OLD 
LET OLD+2 := NEW+2 
NEW+2, OLD+2 
ENDINC ;BAUD RATE 
$115 
LET R3 :B= SUSWR+1 AND #17 ; PUT BAUD BACK 
SUSWR+1,R3 
R3, -(SP} 
#1?, (SP) 
(SP§+,R3 
atin on LET R3 := R3 CLR.BY #177400 
; LET @TCSRHI :B= RATES(R3) ; LIKE HE WANTED IT 
RATES(R3) , STCSRHI 
; CAN NOT LEAVE WITH MAINT SET 
LET COCR = JTCSR CLR.BY sMAINT 
SMAINT, JTCSR 
IF #B1T2 SETIN ERRCHK THEN 
tiem 
- REPORT DEFERED ERROR 
ERRHRO 126 
126 
ENDIF 
EXIT _;SKIP TABLE 
TST17 ;;;EXIT THIS Test 


hgh OS PLE rye HOME EHTS TE 


i Rare THE COLUMN ’ OFFSET 


pate T CAN » PLACED uy ITS< 11:8 
pea aca a ne site ¢ UPON ™ 
COMPLETION OF THIS TEST 





FOS 
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SET INTO TABLE 


ENOTST 


a 


IZ /BAUD RATE DIDN’T CHANGE. / 


Seapsageergecage & 
sasassssss3s9455 no 


= ie 


L 
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106 
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000100 


tETEST 17 


173052 


173170 


65S: 


173150 


egseses § 39838 8 8 € 


ise] 
foe 
oO 


BIS 


GOS 
,08-AUG-77 03:20 PAGE 58 
Ti PROGRAMMABLE BAUD RATE TEST 





“aon 


5) BUT NOT WITH INTERRUPT ENABLE CLEAR 


19: SER 
INTFLAG 


DLVEC,R3 
#4,R3 


Ral 
sIATSRY (R14 


8XMITIE, JTCSR 


#PRO,-(SP) 
#658; -(SP) 


#XMITIE,@TCSR 


+ eT TET Riwen IN APT MAIL BOX 
wines a 


LET I 


OCCURED’ FLAG 


GET VECTOR ADDRESS 
LET R3 i El vee 

:FOR THE TRANSMITTER 
LET R3 := R3 + 


-SET VECTOR TO POINT TO TRANS.SRV AT PRI 
SETVEC R3, SINTSRV, 8PR7 


SURE THAT TRANSMITTER READY IS SET 
CALL TIMER IN <#SO, 8XMITRDY, TCSR, #SET> 


“CLEAR INTERRUPT ENABLE 
LET &TCSR := @TCSR CLR.BY SXMITIE 


-SET IT T0 0 
;;PUT NEW PS ON STACK 
PUT NEW PC ON STACK 
;;POP NEW PC AND PS 


;NOW SET I.E. BIT 
LET STCSR := YTCSR SET.BY sXMITIE 


;LET INTERRUPT HAVE TIME TO OCCUR 
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010546 


ae 
BE 


104106 
000401 


— 104107 


012767 
005067 


eae 
& 
Ooia 


10411C 


MACY11 27( 1006) 
09:16 T 


000010 
002612 


002672 


172726 


173070 


$131: 


$132: 
$130: 


65S: 


HOS 


PAGE 60 
TRANSMITTER INTERRUPT LOGIC TEST SE@ 0059 
< WAITUS 10 


Seat 09:20 


* 


MOV RS,-(SP) 
nee WAIT 
mov CSPDSRS 


wr PROPHET HEMT one 


CMP INTFLAG, #1 
BEQ $13¢ 
“NO - WAS IT 0 OR MORE THAN ONCE 
tf 1 EQ 80 THEN 
TST INTFLAG 
BNE $131 
; TRANSMITTER DID NOT INTERRUPT IN TIME 
ERRHRD 106, , DIDNOT 
ERROR 106 
. ELSE 
BR $132 ; 
- THI 
g 
i TRANSMITTER INTERRUPTED TWICE . 
ERRHRD 107, , TWICE 
ERROR 107 
ENDIF 
ENDIF 
; INTERRUPT WITHOUT TNFERRUPT ENABLE SET 
MOV #64S, SLPERR ptr: 
:CLEAR "INTERRUPT OCCURED’ FLAG 
LET INTFLAG := 80 
CLR INTFLAG 
“CLEAR INTERRUPT ENABLE 
LET STCSR := @TCSR CLR.BY SXMITIE 
BIC 8XMITIE, JTCSR 
-NO INTERRUPTS SHOULD OCCUR 
MOV #PRO, -(SP) ;;PUT NEW PS ON STACK 
MOV #65$, -(SP) ::PUT NEW PC ON STACK 
RTI ::POP NEW PC 
sDARE IT TO HAPPEN - 
WAITUS 10 > 
MOV RS,-(SP) 
MOV 810, -(RS) 
JSR PC, WAIT 
MOV (SP)+,RS 
IF INTFLAG NE 80 THEN 
TST INTFLAG 
BEQ $133 
- INTERRUPT OCCURED WITH I E CLEARED 
ERRHRD 110, NOTENAB 
ERROR 110 


ENDIF 


105 
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DVDVCA.P11  08-AUG-77 09:16 717 TRANSMITTER INTERRUPT LOGIC TEST SEQ 0060 
$133: 
BRESET 
RESET 
RESTORE VECTOR AREA 
> R1,-(SP) R AVEC Ra 
Bay Soy fib» {85} + Buen ha ON STACK 
000003 MOV #R3,R1 
MOV RL Re 
ADD ; 
MOV Re: (R1)+ ‘. 
so) CLR (RL) 
1 1 MOV (SP)+,R2 ;;POP STACK INTO R2 
012601 MOV (SP)+)R1 ::POP STACK INTO RI 


ENDTST 


WON ULL WIT 


O— 6 OP fs Be fe ep 


JOS 
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DVDVCA.P11  O8-AUG-77 09:16 T17 TRANSMITTER INTERRUPT LOGIC TEST 


35 ee 6 96-96 HE HE HE HE HE Eb bb aE 
HEHE HEHEHE HE HE HEE HE HE HE HEE 


+ JHSHHHH HUH HHH HH HEHHIEE 
:fTEST 20 GRE YER MTEERS Lt BF THE Recerver - 
i INTERRUPT LOGIC IN 
GHROC TER ME HE HE He HE HE HE HE HE HE HE HE HE HE EH HH 3H HE HE 
10° StestR HSEr TeSt MUrGeR Th APT MAIL BOX 
IF SMAINTJUMP NOTSETIN SUSWR ORB APTCON EQ sTRUE 
SMAINTJUMP, SUSWR 


ome 


’ TSTel inorr EXIT TEST 


; CLEAR INTERRUPT OCCURED FLAG 
‘SET UP RECEIVER INTER. VECTOR 
a crane SETVEC DLVEC, SINTSRV, 8PR7 


bem 


(SP)4+.R1 

PRIORITY O AND MULTIPLE INTERRUPT TEST. -RCVRIE 
#64S, SLPERR 
INTFLAG 


oh gh 


UA 
AUN 4 


LET INTFLAG := #0 


MAINT. BIT 
LET atesA es := @TCSR SET.BY MAINT 


“CLEAR INTERRUPTS 
LET ister’ := SRCSR CLR.BY #RCVRIE 


PRIORITY 


#MAINT, @TCSR 


#RCVRIE, IRCSR 


#PRO,-(SP) 
#65$, -(SP) 


A CHARACTER 
LET age 4 
sWAIT A MAXIMUM 
;0F 50 MSEC FOR 
*XMIT ROY TO SET IN TCSR 
rn TIMER IN <8SO, 8XMITRDY, TCSR, #SET> 


) 
T,-¢RS) 
TCSR, -(RS) 





KOL 
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OVDVCA.P11 08-AUG-77 09:16 T20 RECEIVER INTERRUPT LOGIC TEST SEQ 0062 
Q -(RS) 
SmuT TRY (RS 
a 
: -SET INTERRUPT ENABLE 
sa - LET ORCSR := @RCSR SET.BY SRCVRIE 
yeti nee *LET IT COME IN. 
‘ WAITUS 10 
Ro {Fe 
JSR PC, WAIT 
(SP)+,RS 
-DID HE DO IT RIGHT? 
IF INTFLAG NE #1 THEN 
000001 CMP INTFLAG, #1 
BEQ $136 
‘MOAN NOT LEAVE WITH MAINT SET 
LET’ at Peete CLR. BY NT 
172564 BIC #MAINT, JTCSR 


IF INTFLAG EQ 80 THEN 

TST PNTELAG 

BNE 137 

;RECEIVER DID NOT INTERRUPT IN TIME 
ERRHRD 





111, ,DIDNOT 
ERROR 111 
-TWICE OR MORE 
ELSE 
BR $140 
$137: 
;RECEIVER INTERRUPTED TWICE 
ERRHRD 112, , TWICE 
ERROR 112 
ENDIF 
$140: 
ENDIF 
ame RESET MAINT. BIT 
LET @TCSR := aTC bir By SMAINT 
042777 000004 172542 BIC #MAINT, ATCSR 
ENDSUB 
; INTERRUPT WITHOUT I E SET. 
BGNSUB 
012767 006530 172360 MOV #64S, SLPERR 
LET STCSR := @TCSR SET.BY sMAINT 
052777 000004 172526 BIS #MAINT, aTCSR 


;CLEAR INTERRUPT FLAG 
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Hie LET INTFLAG := #0 
002264 CLR INTFLAG : 
IE» H ‘ 
cer SRReR  NERESH cor.ey sAcvare 
¥3 000100 172510 BIC #RCVRIE, ARCSR loud: i ananen 
3 LET STBUF :B= #0 
172514 CLRB  aTBUF 
__3 DARE IT 
WaAITUS 10 
Ly, MOV RS, -(SP) 
000010 MOV #10, -(RS) 
002152 JSR PC, WAIT 
74 MOV (SP)+,RS 
74 IF INTFLAG NE #0 THEN 
002232 TST INTFLAG 
a7 BEQ $141 
e745 ; EXIT WITH MAINT CLEAR 
a750 LET JTCSR := 3TCSR CLR.BY sMAINT 
275 000004 172460° BIC #MAINT, JTCSR 
o75e ERROR 113 ; INTERRUPT WITH I E CLEAR 
75. ENDIF 
{tn $141: 
9755 LET @TCSR := JTCSR CLR.BY sMAINT 
2755. 000004 172450 BIC SMAINT, JTCSR 
oe ENDSUB 
5033 ; INTERRUPT WITH I E SET BUT AT PRIORITY OF 7 
76 BGNSUB 
57 be 172266 MOV #64, SLPERR 
a7 LET @TCSR := QTCSR SET.BY sMAINT 
764 172434 BIS 8MAINT, aTCSR 
e765 LET INTFLAG := 80 
of CLR.. _INTFLAG 
a7 ° DON'T LET THEM IN 
7 bE MOV #PR7, -(SP) ;;PUT NEW PS ON STACK 
2765 MOV #658, -(SP) -:PUT NEW PC ON STACK 
' se RTI HF NEW PC AND PS 
277 LET @RCSR := ORCSR SET.BY #RCVRIE 
172404 BIS SRCVRIE, IRCSR 
LET @TBUF :B= #0 
9775 CLRB  aTBUF 
277% “DARE IT 
WAITUS 10 
a7 MOV RS, -(SP 
2775 MOV #10, -(RS) 
2780 JSR PC. WAIT 
MOV (SP)+,R5 
27 8¢ -DID IT HAPPEN? 
4 : we Abe IF INTFLAG NE #0 THEN 
5785 006700 001401 142 





- INTERRUPT OCCURED AT PRIORITY 7 
006702 ERRHRD 115, NOTENAB 


ys 
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RECEIVER INTERRUPT LOGIC TEST 


I 


SS8RS82 2 


MOS 


ENDIF 
. THE WORLD 
presi fo 
-RESET MAINT. BIT. 
LET @TCSR := @TCSR CLR.BY sMAINT 


ENDSUB 
LET RY := @DLVEC 


;;PQP STACK INTO Re 
;;POP STACK INTO Rl 
ENDTST 


SEQ 0064 


MAINDEC-11-DVDVC-A 
DVDVCA.Pil 


ves 


‘ ee fe Se lee ee eelee ee 88 te «ote ee eelee ee yr * TP ) * 
ead ind Cad Ca dead bad + 
on ee ' ‘ 








at 


08-AUG-77 09:16 


001314 
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172202 
172214 
172226 
000001 


172146 


172236 


NOS 
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T20 RECEIVER INTERRUPT LOGIC TEST SEQ 0065 
3 JHU 
isl 21 ES] LA ATA IRE 
°# 
if Thon-SRTE RUE? Ral RPCRERCE err ser 
© > SME MH ME 6-H HE HE Me HE HE HE ME HE HE HE SEE HE EEE EE RRA RRR ES 
t$T2i: SCOPE 
81, STIMES ;;D0 1 ITERATION 
MOV 821, STESTN ::SET TEST NUMBER IN APT alt BOX 
F SMAINTJUMP NOTSETIN SUSWR ORB APTCON EQ sTRUE 
BIT SMAINTJUMP, SUSWR 
BEQ 143 
CMPB = APTCON, #TRUE 
BNE 144 
$143: 
EXIT TEST 
MOV #1, STIMES 
BR TSt2e :s;EXIT THIS TEST 
ENDIF 
$144: 
LET ERRCHK := 80 
CLR ERRCHK 
:SET MAINT. BIT 
LET @TCSR := JTCSR SET.BY sMAINT 
BIS #MAINT, JTCSR 
j CHANGE PRIORITY 
my STAR} A a SE 
5 9° 
ATL ti Be BND 
BYS: 
sGET DATA 
CALL DATLNG OUT <R1> 
#1#2,RS 
JSR PC. DATLNG 
(R5)+,R1 
ALL BINARY CHAR. 
: “ INCR Re FROM #0 TO 8377 BY #1 
gk $i4sS 
$146: 
INC R2 
$14S: 
CMP R2, #377 
BGT $147 
; TRANSMIT CHAR IN Re 
CALL TIMER IN <8SO, 8XMITRDY, TCSR, #SET> 
MOV RS, -(SP) ’ 
MOV 8SET, -(RS) 
MOV TCSR’ -(RS) 
MOV 8XMI TROY, -(RS) 
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— 
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103003 
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000010 001206 


172136 


001142 


172064 


000004 172046 


$150: 


$151: 


$1Se: 


06 


oe 09:20 


PAGE 67 
TEST ACTUAL DATA TRANSFERED 
MOV #50, -(RS) 
JSR PC, TIMER 
MOV (SP)+,R5 

i 

BCC $150 
BIS 88173, ERRCHK 
MOVB Re, JTBUF 
MOV RS, -(SP) 
MOV sw 
MOV -( 
MOV ,7 (RS) 
HOV #50, -(RS) 
mCP ERE 
BCC $151 
BIS #8174, ERRCHK 
MOV ORBUF , R3 
MOV R2,R4 
BIC RI; RY 
BIC Rl, 
CMP R4,R3 
BEQ $152 
BIC SAINT, aTCSR 
ERROR 116 


SEQ 0066 


IF.ERROR THEN 
LET ERRCHK := ERRCHK SET.BY sB8IT3 
ENDIF 


- TRANSMIT IT 
LET QTBUF :B= Re 


CALL TIMER IN «#50, 8RCVRDONE ,RCSR, 8SET> 


IF.ERROR THEN 
LET ERRCHK := ERRCHK SET.BY sBIT4 
ENDIF 


-AND SAVE IT 
LET R3 := @RBUF 


;COMPARE TO SEE IF WE RECEIVED IT ALL 
;CLEAN OFF NON-DATA BITS 
AND 


:ON BOTH TRANSMITTED 
LET RY := Re CLR.BY RI 


LET R3 := R3 CLR.BY R1 


-RECEI TA 
tF RY Ma RB THEN 
;DATA COMPARE ERROR 
CAN NOT LEAVE WITH MAINT SET 


Let’ “dTCSR := @TCSR CLR.BY MAINT 
ERRHRO 116, COMP, SBWAS 


(TRANSMITTED? ‘RECEIVED> 
ENDIF 
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042777 
Ogi4el 


104130 


oo0cc4 172034 
000010 001076 


oooded 001064 


08-AUC 
Tel 


$147: 


$153: 


$154: 


CO6 
“Test Ae Tue DATA TRANSFERED 


$146 


SMAINT, JTCSR 


#8173, ERRCHK 
$153 


130 


#B1T4, ERRCHK 
$1S4 


131 


ENDINC ; Re 


“RESET MAINT. BIT. 
LET @TCSR := @TCSR CLR.BY SMAINT 


IF #BI1T3 SETIN ERRCHK THEN 


ERRHRD 130 
ENDIF 
IF #BIT4Y SETIN ERRCHK THEN 


ERRHRD 131 
ENDIF 
ENDTST 


SEQ 0067 


DO6 
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DVDVCA.P11  08-AUG-77 09:16 T21 TEST ACTUAL DATA TRANSFERED SEQ 0068 
$8 
3% REEE 
;RTEST 22 TEST DATA THROUGH WRAP 
Sree 171674 Stee: SCOPE 8 1 TI 
171 ROY wassitein Hes TEP UOER IN APT MAIL BOX 
7e7e IF 8WRAP NOTSETIN SUSWR OR SCOMSPD NOTSETIN SUSW 
a7 171720 ) , SUSWR 
oy 
ee, 171710 ? , SUSHR 
BNE $iS6 
$1S5: 
sCAN’T TEST WITHOUT A WRAP 
EXIT’ TST 
¥ 171640 MOV #1, STIMES 
BR Tst23 ;;;EXIT THIS TEST 
107 3e% IFB APTCON EQ 8TRUE THEN 
107: 000001 CMPB = APTCON, #TRUE 
1073.3 BNE $1S7 
EXIT TEST 
r 171620 MOV #1, STIMES 
BR Tst23 ;;;EXIT THIS TEST 
ENDIF 
$157: 
¢ ENDIF 
$156: 
-DON’T USE MAINT. 
LET aTCSR := STCSR CLR.BY SAINT 
171714 BIC SAINT, ITCSR 
; IF_A SPECIAL TURN AROUND CARD IS 
> CONNEC 4 PLACE OF THE WRAP 
; SETTING WILL ENABLE IT. 
: THIS 1S Ont y IN MANUF ACTUR 
> AND ONLY DLV1I-F. 
: IF NO SPECIAL MODULE IS AVAILABLE, 
j GND THE WRAP BIT 1S sé N SUSWR 
: THIS TEST WILL ON THE CONSO 
907350 LET ORCSR := QRCSR SET.BY #11 
052777 000011 171702 BIS #11,9RCSR 
1 j CHANGE PRIORITY 
01274 oo0000 MOV PRO, -(SP) ;;PUT NEW PS ON STACK 
01274 007370 MOV #64S' -(SP) ::PUT NEW PC ON STACK 
oodo02 al RTI POP NEW PC AND PS 
:GET DATA MASK 
CALL DATLNG OUT <RI> 
162705 00002 SUB #1*2,RS 
004767 001240 JSR PC, DATLNG 
012501 MOV (RS5)+,R1 
LET RO := @RBUF ; START CLEAN 
017700 171654 MOV SRBUF , RO 
2008 “BINARY COUNT PATTERN 
007406 INCR R2 FROM #0 TO #377 BY #1 





E06 
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DVDVCA.P11  08-AUG-77 TEST DATA THROUGH WRAP SEQ 0069 
S07 Some SocNOl me  Sieo : 
$161: 
aes INC R2 
020227 000377 CMP R2, #377 
003057 BGT $ib2 
; TRANSMIT THE CHAR. IN Re. 
; MAKE SURE IT’S READY 
CALL’ TIMER IN € a0, sXMTTROY, TCSR, #SET> 
MOV RS, -(SP) 
177777 MOV #SET, -(RS) 
71630 MOV TCSR. -(RS) 
HOV axni TROY -(RS) 
#50,-(RS) 
001012 ISR PC, TIMER 
MOV (SP)+, RS 
IF .ERROR THEN 
EEROR $8 TTER NEVER BECAME READY 
ixit veut 
000001 171474 MOV #1, STIMES 
BR Tst23 ;3;EXIT THIS TEST 
ENDIF 
$163: 
-START IT ON ITS WAY 
LET iftuE o. Re 
171576 MOVB Re, JTBUF soils iaildiich Geom 
CALL TIMER IN (RES SREVRDONE , RCSR, 8SET> 
127777 HOY RSET otRS) 
iiss MOV sob» - (RS) 
MOV ,~ (RS) 
peta MOV #50,-(RS) 
2 JSR PC. tr 
MOV (SP)+, RS 
IF.ERROR THEN 
BCC $164 
ERRHRD 124 
ERROR 124 
- RECIEVER NEVER BECAME READY 
ExIT TEST 
000001 171424 MOV #1. STIMES 
BR TSt23 :3;EXIT THIS TEST 
ENDIF 
$164: 
- RETRIEVE 
LET R3 := ORBUF 
171520 MOV JRBUF , R3 
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DVDVCA.P11 08-AUG-77 TEST DATA THROUGH WRAP 
1 Re, RY 
Babies Be RG'RY 
040103 BIC R1,R3 
CMP R4Y,R3 
att BEQ $165 
104117 ERROR 117 
$165: 
000715 BR $161 
$ibe: 
052777 O00011 171472 BIS #11,9RCSR 





ENOTST 


SEQ 0070 
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© EEEHEEEESEEASSSESSASSRAASS SESE SESRESESESR EE HSA RARER EE RRR EERE ES 
: RTEST Ti WITH INTERRUPTS 
+ AD RRINTENANCE RoDe- 
1 3 EEE 8 3 2 EH a EE a a a a a ab ab ab 
1 t$123: SCOPE 
1 171362 MOV 81 STINES ;;D0_1 ITERATION 
i 171374 MOV 823, STES :SET TEST NUMBER IN APT MAIL BOX 
1 IF SMAINTJUMP NOTSETIN SUSWR ORB APTCON EQ sTRUE 
1 171406 BIT SMAINTJUMP, SUSWR 
{ 900001 cree BPTCon, aTRLE 
1 $16 
1 $166: 
1 EXIT TEST 
rl 171326 MOV #1, STIMES 
1 BR TSt24 ;;;EXIT THIS TEST 
il ENDIF 
f $167: 
-GET DATA MASK 
11 CALL DATLNG OUT <R2> 
{ A86 3 rad OO ae BANE AF NG 
! yes MOV (R5)+,R3 
1 
1 ;SINCE THIS WILL BE A FULL SPEED INTERRUPT TEST 
1 IF A DATA COMPARE ERROR OCCURS THE REPORT 
1 sHILL UNTIL ALL DATA PATTERNS HAVE: 
1 : . IF NUMBER OF CHAR. TRANSMITTED 
1 *DOES NOT EQUAL THE NUMBER RECEIVED THIS ALSO WILL 
is ;BE REPORTED. 
is ; CHANGE PRIORITY 
1 00764 012746 000000 Mov wPRO, ~ (SP) 5 sPUT NEW Ps ON STACK 
4 hiked whee RTI : tT POP NEW PC AND Ps 
i oe ees T VECTOR ADDRESS 
t 007660 LET R1 iFive 
j 016701 171372 MOV DLVEC,R1 
140 -RCVR VECTOR 
14 LET (R1)4 := #REC 
1 012721 010040 MOV #REC, (R1)+ 
14 LET (R1)+ := @PR7 
144 007670 012721 000340 MOV #PR7, (R1)+ 
i ae rea em 
ai? go7e7™ LET (R1)4 := Fired 
1 74 012721 007776 MOV #TRAN, (R1)+ 
1 ai LET (R1) := #PR7 
1 ° 012711 000340 MOV #PR7, (R1) 


HO6 
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* CLEAR ERROR COUNTER 
» nr LET ERRCNT := 80 
— a — :START COUNT AT O 
LET R1 := 80 


- ” RECEIVER STORAGE 
LET R2 := fo 


ee RECEIVED CHAR. COUNT. 
LET RY := 


GIGI GI GIG) G) GIG) G) GIGI GI CUG) 


BRESET ;SET UP ALL REGISTERS 
-SET UP Mal 
LET aTCSR := TCR ay ana INT 


Let arcshee Sikée Cel By OXrLTIE 


LeT ancsh > RCSA SET.BY #RCVRIE 


; CLEAR OUR DONE AND ERROR FLAG WORD 


“NOW WE WAIT UNTIL R4 COUNT (RECEIVED) IS EQUAL 
REPEAT 


UNTIL RY HIS NUMBER 


SGERTERE SRA EN 


WHeHMAia HF PSSASS 
: 


000004 171336 BIS SMAINT, JTCSR 


000100 171330 BIS SXMITIE,@TCSR 


000100 171316 BIS #RCVRIE , ARCSR 


$170: 


RY 
103775 BLO $170 
LET @TCSR := @TCSR CLR.BY sMAINT 


GIGIG) GIG) GI GIG) G) GI GIGI GI) GI) GIG) GI) GI GIG) G) GIGI GI) G) GIGI GY) 
Pe a Bae Dn De Ga me Dean Bene a Pn bs Ge at De ne Be ho es Be faa hn Be fe be ee Pee De Bae ee 


BESKKRLECLESBIRKIBH= SIs VeaZIn-3S 


042777 000004 171306 BIC 8MAINT, aTCSR 
: CHECK FOR DATA COMPARE ERRORS. 
IF ERRCNT NE #0 THEN 
905767 000006 TST ERRCNT 
1401 BEQ $171 etl 
ERRHRD 120, COMP, FIRST 
104120 ERROR 120 
-<R3> OCCURED, FIRST: SB <SG>, WAS <WAS> 
ENDIF 
$171 
EXIT  ;SKIP OVER SUPPORT ROUTINES & STORAGE 
000462 BR TST24 sssEXIT THIS Test 


MAINDEC-11-DVDVC-A 
DVDVCA.P11 


tee ee 


pant a ae ed 


See Ran kee a8 22 
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016777 


00S201 


001083 


042777 
000401 
000000 


JUUUUE 


017702 
040302 
010467 
040367 
Bie 

1412 


005767 
001005 


177750 


000100 


171216 


177700 


a 27( 1006) 


1712S4 


»J06 


08-AUG-77 09:20 
T23 


REC: 


PAGE 74 
FULL DATA TRANSFER WITH INTERRUPTS 


Ra" HOLD 
HOLD, JTBUF 


R1, NUMBER 
$122 


SXMITIE, JTCSR 


22Z 


AND SEND. 
LET 3TBUF := HOLD 
INCREMENT CHAR COUNT. 
Ri + #1 


LET Al := 
-ALL DONE 
IF REO ROMBER THEN 


; STOP NTERRUPT 


I PROCESSING 
LET JTCSR := JTCSR CLR.BY sXMITIE 


ENDIF 


; EXIT SRV 


ENDSRV 


;RECEIVER INTERRUPT HANDLER 


BGNSRV REC 


;GET CHAR IN + MASK IT 
LET Re := @RBUF CLR.BY R3 


O40 wth CONTAIN EXPECTED INPUT 


LET RHLD := RY CLR.BY RB 


-DO THEY COMPARE 
IF R2 NE RHLD THEN 


-FIRST ERROR 
iF ERRCNT EQ 80 THEN 


SE@ 0073 
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005267 


MACY11 27(1006) O8-AUG- 
09:16 Te3 


000032 177674 


177671 


177660 


177654 


000100 171132 


$174: 


$173: 


$175: 


2222: 


JO6 
77 09:20 


PAGE 75 
FULL DATA TRANSFER WITH INTERRUPTS 


LET SB 
MOVB = RHLD, SB 
sa LET WAS :B= Re 
—_ ' ENDIF 
-COUNT IT. 
LET ERRCNT := ERRCNT + #1 
INC ERRCNT 
ENDIF 
“COUNT THIS CHAR. 
LET RY := RY + #1 
INC RY ‘ 
IF Pa ROPER THEN 
CMP R4, NUMBER 
BNE $175 
-STOP RECEIVER INTERRUPTS 
LET @RCSR := @RCSR CLR.BY SRCVRIE 
oe en, INDICATE TO TIMER 
-MAIN REPEAT LOOP Ie EHECKING 
ENDIF 
-FOR ’R4Y = NUMBER’ ALSO 
BR 2222 ; E€XIT SRV 
RHLD:0 
ENDSRV 
RTI 


ENDTST 


SEQ 0074 


;SAVE_RECORD OF FIRST MISS 
:B= RHLD 
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171016 


000001 


100000 


BURRIRRMDS ees a Tot? Soe ten S ROR NON MANN RSCemeoS eaaem ne 






171014 
171 


171040 
171030 


170760 


171050 


171042 


171040 


171022 


KO6 
08-AUG-77 09:20 PAGE 76 
123 FULL DATA TRANSFER WITH INTERRUPTS SEQ 0075 


EE EE EEE 





TEST et TEST may GERAIS COLE or 


+i AND RECET WITH O.. 

f ia p EMECKED 
* = JE3HEHIHEEHHEEHEHIHH: 

; 


RELLLLEL LEELA ERE 


HOV ou! STeSTN Ser TEST Mu NUMEER IN APT MAIL BOX 


F SHATNT JUMP AROTSETIN SUSWR OR #BRK NOTSETIN $U 
BIT apne ane, 


Bry ,SUSHR 
Be Si77 





$176: 
a ree EXIT TEST 
BR. #hs8z 3;;EXIT THIS TEST - 
ENDIF 
$177: 
LET ERRCHK := #0 ; CLEAR ERROR WORD 
- - SET MA BIT 
LET 3TCSR := eae EE SMAINT 
BIS #MAINT, JTCSR pees ot 
LET @TCSR := aren ott BY #BREAK 
BIS #BREAK, JTCSR 
*NON-ZERO CHAR. ’#’ 
LET @TBUF := #252 
MOV #252, JTBUF 
;WAIT FOR DONE 
REPEAT 
$200: 
FOR DONE 
UNTIL enivitine SETIN @RCSR 
BIT SRCVRDONE , IRCSR 
BEQ $200 
IFB ORBUF NE #0 THEN 
TSTB © SRBUF 
= -“ BREAK DID NOT E 0 
LET ERRCHK := ERRCHK ot ay #B1TO 
BIS _- #B1T0,ERRCHK : 
ELSE 
BR $202 
$201: 


IF SERRBITS SETIN SUSWR THEN 


IF 8FRERR NOTSETIN @RBUF THEN 





LO6 
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+ ‘ 






ATAtA 


aD Fade 


AT ATATAt 


Ai AtAtA = 
ATATA 
peri 


052767 000002 000030 


08-AUG-77 09:20 PAGE 77 
Te4 TEST BREAK GENERATION LOGIC 
BNE $204 
BIS #B1T1, ERRCHK 
$204: 
$203: 
$202: 
RESET 
i sei Te cmc 
ERROR 121 
$205: 
BIT #BIT1,ERRCHK 
BEQ $206 
ERROR i122 
$206: 
ERRCHK: BflorD 0 bc 


SEQ 0076 


LET ERRCHK := ERRCHK SET.BY s#BIT1 


ENDIF 
ENDIF 
ENDIF 
BRESET ;CLEAN UP 


IF #BITO SETIN ERRCHK THEN 


ERRHRD 121 
ENDIF 
IF #BIT1 SETIN ERRCHK THEN 


ERRHRD 122 
ENDIF 


; FRAMING ERROR 


EXIT 
3;;EXIT THIS TEST 
ENDTST | 
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T24 TEST BREAK GENERATION LOGIC 
53 eee biel 
:KTEST 25 NOT f TEST - SEND BACK TO LOOP 
4i tse RREEEEREEULREE 
7 Roy . #1, STIMES 3;00 1 ITERATION 
oR : ees as f WER te Reciz 
HY a eASCIZ < >#CSR: # 
“MOV DLADD, -(SP) 33 F OUT 
TYPOC 5390.1 TAL ASCII(ALL DIGITS) 
TYPE 675 $3 IZ STRING 
BR 66s *:GET OVER ASCIZ 
i878: -ASCIZ #, VECTOR: * 
“MOV DLVEC, -(SP) ;;SAVE DLVEC FOR TYPEOUT 
Typoc Wet necig TAL ASCII(ALL DIGITS) 
BR 3;GET te Ret fz 
i582: -ASCIZ %,ERRORS: * 
"MOV TTL,-(SP) 3; FOR 
Mbps «| SERTTLY LGD ivPe~-OECTRAL Ree LTH SIGN 
CLR SERTTL : RESET FOR NEXT DEVICE/PASS 
TYPE SCRLF 
IMP Loop ; BACK UP TO THE BEGINNING 


SE@ 0077 


NO6 
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DVDVCA.P11  08-AUG-77 09:16 T2S NOT A TEST - SEND BACK TO LOOP SEQ 0078 
; | BGNMOD SUBS 
$ 9G SE HE 3 SE 36-3 E96 ESE HE 46 6 98 SE HH HH 3 3 EE 
o10462 BQUTINE TIMER <HOMLONG, WHICHBIT, REG, SETCLR) 


i wuntne 2! 

IN xy THANY REGISTER. USED TO TEST THE STATUS OF ANY BIT 
HOWLONG TR AMOUNT OF TINE TO SPEND IN 
WHICHBIT “nb THE BIT(S) SET THAT ARE 

6 T GISTER TO BE CHECKED 
SETCLR 


eur i Fig "RP UTE or 


NOTE: : Ls 9 (RS) 18 FT OF re Lee 
BETWEEN THE CALLER THE CALLED 
5 5 JHHHIHHHHHHHHHHHHHHIHHHHHHEHHHHHHIHHH HHH HHH 


onan TRUE= 
ANNO FALSE= 4 


LET REGSAV := REG(RS) ; GET POINTER TO REGIST 
LET TIMSAVY := HOWLONG(RS) ; SAVE HOWLONG FOR 
LET - FLAG :B= @FALSE ; INITIALIZE THE EXIT FLA 


MOV REG(RS) , REGSAV 
MOV HOWLONG (RS), TIMSAV 
MOVB #FALSE, FLAG 


et be eee 
Oo 
a 
N 
® 


; START OF AN INFINITE LOOP 


$211: 
; TEST TO SEE IF WHICHBIT IS SET 


IF WHICHBIT(RS) NOTSETIN @REGSAV THEN 
000114 BIT eT Tins) , SES 


LET HOLDSC :B= s#CLR 


ELSE 
$214 


LET HOLDSC :B= sSET ; REMEMBER THIS 


BNE 

000111 MOVB &sCLR,HOLDSC 
BR 
MOVB 

ENOIF 


000101 #SET, HOLDSC 


j NOW SEE TP THAT WAS WHAT WE WANTED 
- {FB HOLDSC EQ SETCLR(RS) THEN 





B07 
Dat, bee. at oes ROUTINE Teh Set SEQ 0079 





B Apb7Es 000075 000006 cree HOLDSC, , SETCLR(RS) 
; JUST THING WE 
a 
EE Se 
112767 000001 000062 MOVE = STRUE, FLAG 
ENDIF 
$215 
EXIFB FLAG EQ sTRUE OR TIMSAV LE 80 
727 o000S& 000001 CMPB STRUE 
414 BEQ 1 
7 oo0044 TS IHSAV 
il BLE 
WAY OR THE OTHER, WE ARE DONE 
. iF be ARE STILL. HERE THEN’ HANG AROUND A WHILE 
WAITUS 10 ;WAIT FOR 10 MILLI-SECONDS 
1 MOV RS,-(SP) 
000010 #10, -(RS) 
767 000140 JSR PC, WAIT 
012605 (SP)+, RS 
LET TIMSAV := TIMSAV - #1 ; COUNTING DOWN 
005367 DEC TINSAV 
ENDLOOP ; CONTINUED AT THE TOP 
000736 BR $211 
$2le: 
; ONLY 2 WAYS TO GET HERE 
: 1). WE RAN OUT OF TIME---ERROR ! ! 
: 2): THE BIT IS IN THE CORRECT CONDITION--GOOD ! ! 
1061 1FB FLAG EQ sTRUE THEN 
1061 126727 000016 000001 CMPB ss FLAG, # TRUE 
1 1001 BNE $216 
1 RETURN NO.ERROR  ; GOOD 
1 000405 BR $207 
1 ENDIF 
1 $216: 
i RETURN ERROR ; BAD 
1 00026 1 SEC 
10624 000404 BR $210 
1 o00000 REGSAV: .WORD O 
1 000090 TIMSAV: .WORD 0 
1 FLAG:  .BYTE O 
1 000 HOLDSC: {BYTE O 
; WE ARE DONE GO BACK HOME 
ites ins ENORTN 
1 000241 cLe 
10636 $210: 
10636 000207 RTS PC 


07 
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D160 


ss S-SE-SE SESE SE-SE-SE-SE SE SE SEE JJ aE JE SE ab Sb bb ’ 


Oat DATLNG <MASK> 








ca INE: 
3% Nie ROUTINE SETS UP A MASK FOR DATA, WITH 
:# INPUT - NOTHING is TO TH NE 
i# I ST: 
5 
# DATA-- A F TION OF THE OCTAL 
is NUPGER & mata Bits 
; —S eo 
* i MASK-- A MASK OF BINARY RIGHT-JUSTIFIED 
iH THE RUMGER pen ts INED IN 
33 REEL 
} at ca LET MASK(RS) := 80 ; START 
1 —— cane LET NUMBR := SUSWR AND sDATA 
1 16767 170350 000062 MOV SUSWR , NUMBR 
Bs Bo Ee fee 
idee Be (SP)+; NUMBR 
10666 INCR I FROM #1 TO NUMBR BY #1 
ie 913767 000001 170376 MOV a, 
$222: - ' 
1 005267 170370 sont INC I 
1 7 170364 o00024 "CMP I, NUMBR 
1071 ica BGT $223 
1071 LET MASK(RS) := MASK(RS) SHIFT 1 
10712 006365 o000000 ASL MASK (RS) 
1071 LET MASK(RS) := MASK(RS) SET.BY #1 
1 052765 000001 000000 BIS #1, MASK(RS) 
1 ENDINC 
1 000764 BR $222 
1 $223: 
1 LET MASK(RS) := COMP MASK(RS) 
1 005165 000000 COM MASK(RS) 
1 RETURN 
10732 O00401 BR $217 
1 000000 NUMBR: O 
1 ENORTN 
{ $55 
10736 000207 RTS PC 





MAINDEC-11-DVDVC-A 
DVDVCA.P11 


Ba be ee be Pb = bs pe 


OO NDU£ WT 


OOOO OOOOOOOOO00O0COoO 


bee Be te at et Be bee 





08-AUG-77 


MACY11 27( 1006) 
09:16 


DO? 


O8-AUG-77 09:20 PAGE G2 





ROUTINE - DATLNG SE@ 0081 
ss JHHHHHHHHHHHHE a 
ROUTINE WAIT << TIMED 
;# ROUTI I 
8 "ais hourme 1S sep 10 peLay execution ON OF THE 
is g FOR A SPECIFIED AMOUNT OF TIME 
i Bod e die WPTM a 
;* O APPROXIMATE 1 
33 JJHBHBHBBHHHHE 
MOV R1,-(SP) iitias R1 ON STACK 
MOV Rent ) ;;PUSH Re ON ah 
ey -(SP) ;;PUSH Rs ON STACK 
Rl : ui! (RS) 
MOV TIME (RS) ,R1 
a = #1 TO Rl BY @l 
BR $226 
$227: 
ADD #01,Re 
$226: 
cr Re, R1 
INCR R3 FROM #0 TO #700 BY #1 
CLR x] 
BR $231 
$232: 
INC R3 
$231 
CMP R3, #700 
BGT $233 
ENDINC 
BR $232 
$233 
END TNC 
BR $227 
$230: 
MOV (SP)+,R3 ;;POP STACK ‘ inte NTO RS 
MOV (SP)+,Re :: POP STACK 
MOV (SP)+,R1 : POP STACK IN ro ff 
ENDORTN 
$224: 
$2cS: 


= 
7) 
3 


EQ? 
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-SBTTL INTSRV INTERRUPT SERVICE ROUTINE 
JHNHHHHHHHHHHHIHHHHIHEHHIHHHHHHHHHHHHIHEHE 


011020 thTSRv: 
wey ROUTINE: I 


NTSRV 
I TS CLOG ROUTINE DOES NOTHING BUT INCREIENT 


Hf THAT THE nN CALLING ROUTINE HILL KNOM MT 
susneeneeseessi 


;ADD 1 TO ’ INTERRUPT OCCURED’ FLAG 
LET INTFLAG := INTFLAG + #1 


1020 

1020 005267 000002 NC___INTFLAG 

1 ;THAT’S ALL 
1026 000000 


REEL REEL EEE LESSEE EEE EEE 


HLLLEE 





CRRICRC RENO 


FO? 
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08-AUG-77 09:16 INTSRV INTERRUPT SERVICE ROUTINE SEQ 0083 


i 


ee hs 
FEI 


LET APTCON :B= SFALSE ; SET DEFAULT VALLE 


7 o BOC OOt Wt Oe aoe aoe ae apres 






112767 000000 000230 SF ALSE , APTCON 
, LET CONSOLE :B= sFALSE 
112767 000000 000223 MOVB § SFALSE, CONSOLE 
oom REPEAT ; UNTIL BITMASK SETIN SOEVM 
IF BITMASK EQ 80 THEN 
! 0s rer 000200 TST BITMASK 
i - IF INITFLAG EQ #1 THEN 
9e6727 000174 000001 CMP INITFLAG, #1 
1106 1 BNE $240 
Ht 06 LET INITFLAG := 80 
Mee 005067 000164 CLR INITFLAG 
11064 ELSE 
1106 000403 BR $241 
Liga rechee CALL SEOP ; AS A SUBROUTINE 
1070 004767 000370 ISR PC, SEOP 
11 SPECIALADDRESS: ; BECAUSE SEOP RETURNS AS A JUMP 
71 O11 LET RO := POP 
1 012600 MOV (SP)+,RO 
1 ENDIF 
1 $241: 
i108 012767 000001 oD0144 NOV —s# 1, BITMASK a = cae. 
igs , LET SDEVCT := #1 
012767 000001 170072 MOV #1, SDEVCT 
lll LET ADDRESS := SBASE 
1lll@ 016767 170132 000134 MOV SBASE , ADDRESS 
i f LET VECTOR := SVECT1 
016767 170120 000130 MOV SVECT1, VECTOR 
Ill ELSE 
000410 BR $242 
$237: 
LET RY := 810 
11130 012704 000010 MOV #10,R4 
Hig LET BITMASK := BITMASK ROTATE 1 
006167 000110 ROL BITMASK 
11140 pas ee a re LET ADDRESS := ADORESS + RY 
3 Gis ante ane LET VECTOR := VECTOR + RY 
11144 060467 000106 ADD R4, VECTOR 





OH pan Be ee Be bee 


Pot bs ba he bs Bee 


SUPERERORESRGORR ARREARS KUNG 


bas fm fe Qe he Bae bm Ban Rt Bon Pee RS fee Bh Ge G2 + Pe pee pee ee 


be be a me st ee pe bo ee feo ee 


se bb eb b= = ee ee 


ene Bae Pes See fs Ba fet fee Ge fn Bem fe pe bs Gm es es ee 


tS pe be eh eee 


PERE Raa on nan 


ani 


1 aaa 


ices 


112767 000001 
016767 000060 
016767 000054 


012701 011254 
00S267 167736 


167774 





GO? 


A SY laa 


$242: 


ENDIF 


UNTIL BITMASK SETIN SDEVM 
TMASK , SDEVM 


F BITMASK EQ SBITIS THEN 
am, oe 1S 


LET CONSOLE :B= sTRUE 

LET ADDRESS := CONADR 
CONADR, ADDRESS 

LET VECTOR := CONVECT 
CONVECT , VECTOR 


IF sCONMAINT ad bes SUSWR_THEN 
ENOI T NOCONMAINT :B= sTRUE 


IF SAPTENV SETIN SENV THEN ; APT MODE 


STRUE , CONSOLE 


IF SPASS NE 80 THEN ; NOT FIRST PASS 
Let apToiN eBe STRIE SS CONSOLE 
ENDIF ; FIRST PASS 
ENDIF ; APT 
ENDIF ; BITMASK 


LET ADRS := #ADDRESS 


#ADDRESS, ADRS 
LET SDEVCT := SDEVCT + #1 
SDEVCT 
RETURN 
$234 
1op009 ; CONSOLE FIRST 
0 
5 
177560 ; CONSOLE ADDRESS 
: CONSOLE VECTOR 
BYTE 0 
"BYTE O - 
“BYTE 0 
ENDRTN 
PC 
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ROUTINE - CYCLE 


3 


oo 
be 


08-AUG-77 


BY 39 


ee en ea eae a be 
G) 
— 
& 


RRRRRSOS SHORE SSAA TRAE RARE 


Pt bate ee Pe te ee sb hs pe 


be bP 0 fe hs pee Were Pn be fee fe et 0 Pt = = 


PERC TEED DORRRERPRRERG i triecren nnn nin 


Pe Bae Fa ee Pe Be ees a be Ge be bem fs he pe 


26 o 


I0?7 
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09:16 ROUTINE - 


011302 


167660 
011330 


16728 


011366 


167514 
011412 


167626 
011436 


167602 
001171 





167626 


CYCLE 
INE MYTYPE 
sj Sunsugengeeeeeessennesusnsnenseeess asaee + auc 
BR 64g *:GET OVER THE ASCIZ 
jabs: \ASCIZ <CRLF>STEST 9 x ”’ 
: ™N,-(SP) ;; TESTN FOR TYPEOUT 
Tyeoc pe : Myer ge ASCIICALL DIGITS) 
39 
+: GET OVER 12 
i878: OAscIz #,ERROR # % wd 
; SFATAL =; APT FATAL ERROR 
Nove 3) AL;-(SP) ;;SAVE SFATAL FOR OUT 
"BE $6 . Te ASCII 
mat 9S ia "aSclZ STRING 
9°98 
ASCIZ 
jib%8: ORsciz #,PC = # 
? SERRPC,-(SP) ;; FOR TYPEOUT 
Typoc - Pay ~ ints DIGITS) 
39 
2? GET 2 
i215: Pasciz #,CSR: % or 
” DLADD, -(SP) ;;SAVE DLADD FOR TYPEOUT 
Typoc man —- et cre kee DIGITS) 
5 SIGET OVER THE ASCIZ 
55738: OAscIz + VECTOR: 4 - 
: Vv C,-(SP) ;;SAVE DLVEC FOR TYPEOUT 
Tyeoc pane :G0 TYPE--OCTAL ASCII(ALL DIGITS) 
ENORTN . 
SOE: 
$247: 
RTS PC 


SEQ 0086 


JO? 
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DVDVCA.P11  O8-AUG-77 09:16 END OF PASS ROUTINE SEQ 0087 


.SBTTL END OF PASS ROUTINE 
UBIO ete oSee aes" Poses rau roc 
HE WEISS ST 90 191 n mres 


Me He HE HE SE AE HE He He He HH HH 





11 SEOP: 
ii aR : TNM ER TEST 

bs 4 
u CR Tine NUMBER OF ITERATIONS 
Het ‘alain a 6, ae 
t SEOPCT: .WORD ppeatel: 

BGT dooncn 33 YES 

i oaeil HOY (PC)+,a(PC)+ : RESTORE COUNTER 
ti * §EOPCT 
il POPE SENOMG ;;TYPE “END PASS 8” 
i MOV $PASS, -(SP) :;SAVE SPASS FOR TYPEOUT 
i TYPE”. SENULL ie mi oretaA e 
ti SGET42: MOV ds42, RO 3 3GET MONITOR ADDRESS 
t BQ SDOAGN s ;BRANCH TE IF NOHO MONITOR 
1 1 SENDAD: JSR PC, (RO) 160 TO Ui 
1 NOP :: SAVE ROOM 
ie ee 11 bR 
1156< SDOAGN: -" spain 
1156¢ p00 IMP a(PC)+ ; ;RETURN 
: ll TNAD: WORD SPECIALADDRESS 

a: 377 000 aN ing BYTE -1,-1,0 NULL CHARACTER STRING 
11874 B15 42412 042116 SENDNG: |ASCIZ <1&><12>/END pass’ a7 
11 OS0040 051501 d2tie3 
11604 000043 


KO? 


af 
: 5 ff 
PB gg 
eee Pet 
3 : verses © 
pM sip et meee oy 
S.ecuorvios 5 | S,S5gNTRUIE. He. Sy 
Jip tit. oR. 
yep isoenetts ish, emt § 4 
es etic :. Sab ssassss FA + 6 
& tN 
vq 2 iSBBEDERBEDERis Esasenpannnntie cist 
1 a PT 
: 
: is 
ag 
RS 
re 





eg md Ot wt ed I I hh th eg ed a ed ed od eg 
oo Oo00000000o0 
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-SBTTL TYPE ROUTINE 


pola Taclg feast fesse ST TERRINGTE WITH AO BYTE, 
Bit RU MEE ae att esc dete 


SFILLC CONTAINS THE CHARACTER TO FILL 


;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


i# 


LN 

; 

PECALL: 

ja) USING A TRAP INSTRUCTION 
iH , MESADR 

8 

, 





°# 
+ MESROR 
°% 
167163 STYPE: TSTB STPFLG ;;1S THERE A TERMINAL? 
BPL 1s ;;BR if 
HALT > HAL IF NO TERMINAL 
BR 3$ ; LEAVE 
18: sad tes A ;;SAVE RO 2 STRING 
BppOeL | 167176 Ho, «SOREN Gee «TERING IN APT. OO 
000100 167167 STE, OTS poo. sENVM iiMeOS, MESAGE TO APT 
i oe poe 
goon a seep ° 
OOOO4O 16714S 625: aie ' SAPTCSUP,SENVM ;; SSED 
i Pos i Hf 
2s: MOVB (RO) +, -( SP) PUSH CHARAC Hn BE TYPED ONTO STACK 
ah Sy (3+ BS ELT dee TORE TERRINATOR 
oooo002 3S: B00 #2, (SP) ASH neta PC 
000011 4§ CHP SHT, (SP) + BRANCH IF <HT> 
00200 cee BCRLF , (SP) ;;BRANCH IF NOT <CRLF> 
TST (SP)+ ; POP <CR><LF> EQUIV 
TYPE : TYPE A CR AND LF 
000130 cL 5 SCHARCNT ih CHARACTER COUNT 
o000s6 Ss: JSR PC, STYPEC +360 rv 2 THIS CHARACTER 
167026 6S: CMPB tLLC, (SP)+ Be IT "cern F LLER_ CHARS. ? 
BNE ;31F_NO " 
167016 MOV SNULL , - (SP) 2:GET 8 OF F CHARS. NEEDED 
;;AND THE NULL CHAR. 
000001 7S: DECB «A SP) DOES A NULL TO BE TYPED? 
BLT :?BR IF NO--GO THE NULL OFF OF STACK 
000032 JSR PC, STYPEC °?G0 TYPE A NULL 
000072 DECB  SCHARCNT D0 NOT COUNT AS A COUNT 





MO? 
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BR 7$ ; ;LOOP 
;HORIZONTAL TAB PROCESSOR 


HS an hk, ee 


oooos2 afte 
Fy (SP)+ *3 OFF ST 
166742 STYPEC: STB , ::WAIT UNTIL PRINTER IS READY 
166734 MOVB (SP), aSTPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
000015 CMPB ach, 2tSP) iis CHARACTER A CARRIAGE RETURN? 
BNE 1 $8 NO 
000014 CLRB SCHARCNT +: YE CHARACTER COUNT 
BR TYPEX * EXIT 
ooco12 1S: CMPB 


Lee ee 


: CHARACTER COUNT STORAGE 
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166622 000001 


166514 


11 
166475 000001 


000100 166472 





MACY11 27(1006) 


O8-AUG-77 09:20 PAGE Se 
TTY INPUT ROUTINE 


-SBTTL TTY INPUT ROUTINE 





ee HE 
ENABL LSB 
ee 9 HE HE HE HEE HE EE 8 EE HE EE 
:RSOFTWARE SWITCH REGISTER CHANGE ROUT ‘ 
SAS HeDEP PELE [OSOMEE SMB Misren ror ca 
SCKSUR: fe on a T-SHR SELECTED? 
9 
ee ? 
Phe je $3 AF 0 *T WAIT AROUND ~ 
fr toe (SP) Hint THE ASCII 
ie 
CMPB 6- SALITOB, 81 + ARE ING IN AUTO-MODE? 
BEQ 1S$ :;BRANCH IF YES 
TYPE  ,SCNTLG 5;ECHO THE CONTROL-G (1G) 
SGTSWR: TYPE Asis 33 S 
MOV G,-(SP) 33 Fi OUT 
TYPOC :?G0 TAL ASCII(ALL DIGITS) 
ws RES He oa 
=(5P) i 
en Sr ee A, 
BPL 7§ thir NOT SRY AGAIN 
“0V8  a$TKB,-(SP) PICK 
BIC a ic1e?, (ap) tt MAKE if “BIT ASCII 
9s: CMP (SP), #25 1S Ut ITA 1ONTROL-U? 
BNE 10$ 
20s: A beer nee oe” 
“BR 19$ TRY I 
10S: CMP (SP), #15 s318 1 A <cRD? 
ry agp) Hives, IS Pye FIRST CHAR? 
2(SP) , aSWR Hf oy 
He ee, HE tae 
T F HH ) ay (LF> 
CHS : NTAG, #1 $3 TTY KBD INTERRUPTS? 
“sa mT #100, 2STKS $3 “ENABLE TTY KBD INTERRUPTS 
e ay 
tes: STN ieee ioe 


SE@ 0091 


co 
O 
co 


3 
S 
8 
R 
8 
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09: 16 INPUT ROUTINE SEQ 0092 
T 1 BRANCH IF YES 
000067 oe ( ), 967 $3 ) yf 
(SP)+ He pee 
erred i ie $3 mt ry Her CHAR 
ASL (SP) += NO 
es () $3 : TO MAKE 
ogqoge 17s: I 2(SP) He Of CH 
1 s (SP), (SP) $3 Th NeW CHAR 
1170 16S: 3 TYPE ?<CR<LF> 
am BR 20$ SIMULATE CONTROL-U 
OSABL LSB 
+ HHHMHHHMMMHHHEHHEHHEIEHiHHHEHHIHHHHHHHEEEHHHE 
;#THIS ROUTINE WILL INPUT * SINGLE CHARACTER FROM THE TTY 
; : 
woe ti $3 § st CHARACTER FROM THE TTY 
:# AORN HERE He I STACK 
+ ::WITH PARITY BIT STRIPPED OFF 
SROCHR: MOV (SP), -(SP) ; ;PUSH THE PC 
x epg oo0002 4(SP) ,2(SP) 35 SAVE 
ze 1 1$: Bre as tw F 
2 177600 I Seta usp) ii in F ANY 
. sega ee 
SE 70002; ore 4 ), #23 He 1 2 BonTnoL-5? 
“Me S7t 156342 2s TSTB  gSTKS jsMALT Fon 8 CHORECTER 
Oh 166336 MOVE aS TKB, -(SP) GET CHARACTER 
: 7), (SP) 33 7-8 I 
i p Aaaee? at Se a 31S rh cont ho 5? 
BNE 2 3316 NOT DISCARD IT 
Dee 000004 000140 3s ore H(SP), a140 $3 by eee ? 
000004 000175 P H(SP), 8175 $3 I a AL CHAR? 
7 5 §O00040 OD0004 t #40, 4(SP) +;MAKE IT UPPER CASE 
4: RY :*G. BACK TO USER 
He RHSKEREERSREEERERRRE EERE EE RHEE RRERRSRREREKES 
W053 THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
: : 33 A FROM THE TTY 
+ TAN HERE He T CHARACTER WIL: BE ON THE STACK 
* :: TERMINATOR WILL BE A BYTE OF ALL O’S 
4065 ogee. 10346 SROLIN: MOV R3,-(SP) ; SAVE R3 
1 Of 12 1$: MOV tTYIN, R3 >:GET Ss 
WO? Sees B15798 2s: CMP SSTTYINSO. ,R3 + OFFER FULL? 





e x 
= he 
bb hh hh PH PH PS b= PS pe ee bet Dat Pee Gs Be an Be oa te 


A MACY11 27(1006) 77 09:20 PAGE 34 
“WS uc-77 09: 16 I ROUTINE 
os 4s ;;8R IF 
RociR # TER FROM THE TTY 
rehire ta + 4 
an eur IFO 
BR | 3:CLEAR THE AND LOOP 
hove (R3), 9S ECHO THE TER 
B15, (R3)+ , 
2 eee een NOT 
“LR ) THE 15) 
MOV tSP)+ atic 
MOV (SP), ~(SP) AND PUT ADDRESS OF THE 
MOV 4(SP) _2(SP) T Mecll CHARACTER ON IT 
Hoy eSTTYIN, 4(SP) 
BYTE 0 any ORAGE FOR ASCII CHAR. TO TYPE 
: [BLKB 8. ene "Barres FOR TTY INPUT 
: .ASCIZ /tU/<15><12> ; ; CONTROL 
: ASC 7#G/<15)<12>  — $; CONTROL “he 
1 : .ASC «15><1 > ace = / 
ie .ASCIZ / NEW=/ 
3022 





DO8 
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-SBTTL APT COMMUNICATIONS ROUTINE 
SHH 





: % oT FAT 
a f er eae 
tt MOVE 81, SFFLG ;;TO ONLY REPORT FATAL ERROR 
‘ 3 my oie} eR wo Se 
im ot eh i EMOULD Tbe A Pessace 
“i 1 CHPB 0s SAP TEN, SENV j OPERATING UNDER APT? 
at i Bite SAPTSPOOL, SENVM He * Sp BOL MESSAGES? 
wu gia mY reo eer doa 
4 #2, 4(SP) ig =: 1 
‘ i Hip rst SNSGTYPE ss SEE redone W T XMISSION? 
att i MOV AS SMSGAD + TAD IN MAILBOX 
ait 1 TSTB ss (RO) + ;;FIND END OF MESSAGE 
4 srscn0 RO SUB START 
at | 66044 2 RO seus Ha TH Th RATLBOX er. 
di beoces 166020 nov 84; SMSGTYPE ees TO TAKE MSG. 
41 ee 000004 000016 3S MOV 35(SP) 4§ ;;PUT MSG ADOR IN JSR LINKAGE 
at t TeNe0o _— att WS) oo) -:PUSH 135776 ON STACK 
41 1 JSR PC, STYPE * CALL TYPE MACRO 
Mt us: -WORD 0 
4] 000062 10$: TSTB  SFFLG $3 REPORT FATAL ERROR? 
41 BEQ 12s 3;1F NOT: 
41 165776 TST : ? RUNNING APT? 


3 
ae 
3 
5 
A 
f 


i 3 
2 
a 
“4 
= 
2 


se 


128: 


- 
Remo 
Bz 
rer anes = 
3h ws a 
5 


De Be Ge Gs Be fe fet ee Be fe bm Dee be be hs he be ee ee Pe Re ee Re 


WSPRRRSA Soon 


BES SEALS SELORNEDR SBE 
Se ee te 
Ee 
& 
na 
3 
ae © 
Be 
: 


SEEK ELELECLLCLC LEE LC ECL 
Te ee ee 
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4151 000040 APTCSUP=040 
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- 
DY). 


tS 


SS 
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eeeeer 
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165500 


oood4e 


-SBTTL ERROR HANDLER ROUTINE 


ae He to ted cen wd Te RoonESS ea a 


pi Sirtex OPT BY THIS ROUTINE ARE: 
j Hal i ime TYPEOUTS 
j #oWOS 1 COOP OM 
:# ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR: 
= 3; TEST Fi IN SOF T-SHR 
7$: NCB SERFLG ;39ET Oe 
BEQ i 5DON T THE FLAG GO TO ZERO 
HOV Stemi, aprseuay #! SPLAY TEST NUMBER AND 
Be i 
|B 
EBT eree tel Ean trio 
By EPISCARUP™ ATU RULE TE SIOR TEN come 
ae MYTYPE 7:60 TO ROUT INE 
20S: slate 
"(NPB ss SAPTENV, SENV js RUNNING 
nove Ai 218 ie cid fee 
th JSR bc arta + REPORT FATAL 
22S: ‘"e - ea ERROR LOOP 
2s: ST SHR $M On ON 
BPL 3s P IF 
CKSUR Hs POR NM SOFT-SuR 
3S: BIT 881709, SUR PON ae SET? 
MOV SLPERR, (SP) i RETURN FOR OR LOOPING 
4§: TST SCAPE :;CHECK FOR AN Bn ESCAPE ROORESS 
BEQ g8 F NONE 
ae MOV SCAPE,(SP) 3; RETURN ADORESS FOR ESCAPE 
: CMP BSENDAD,a842 =; ;ACT-11 AUTO-ACCEPT? 
BNE 6$ ;;BRANCH IF NO 
6s: HALT 3; YES 
: RTI - ; ; RETURN 
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08-AUG-77 09:16 
-SBTTL SCOPE HANDLER ROUTINE 


pe Pee ra a 3 met itt 








3 #SW14=1 
; = Coop T IONS 
; i L IN SWR<7:0) 
; #CALL 
3% SCOPE ; ; SCOPE=IOT 
1 SSCOPE: 
1 CKSHR 
1 165434 1S: bre 
eeeesSTART OF CODE FOR THE XOR 
013506 $xTSTR: BR 
013510 MOV 
; 000004 
y 
SS: Ro 
i BR. 
1 6$:; 88888END OF 
1 165366 grr 
1 Q 
i ae So” 
1 2s TSTB 
1 BEQ 
1 165303 CNPB 
BHI 
1 165330 BIT 
Q 
165266 7S: HOV 
us: CLRB G ZERO THE ERROR FLAG 
1 CLR STIMES He NUMBER ER OF 1EUERATIONS TO MAKE 
1 BR 1S T re ST 
i 165276 3S: BIT eB1T11, SHR TIONS? 
136 TST pass OF PROGRAN 
i Pe OSTCNT NT TERATION COUN 
1 165220 CrP STIMES, SICNT mf ITERATIONS MADE 
1 165210 1S: MOV #1, SICNT ae ION COUNTER 
1 165256 MOV SMXCNT , STIMES TIONS TO DO 
ot SSVLAD: INCB TSTNM HH T 
1 165264 MOVB § STSTNM,STESTN ;;SET TEST NUMBER IN APT MAILBOX 





MAINDEC-11-DVDVC-A MACY11 27(1006) 08-AUG-77 09:20 PAGE 99 
DVDVCA.P11  O08-AUG-77 09:16 SCOPE NE SEQ 0098 


tee O11667 165166 MOV 
1 Aseee 165164 we 5 LOOP ADDRESS 
He HOE EG WER soon BP Hee HRC PE Ot 
: posods RTI ’ tires PS 


SMXCNT: 2000. ;;MAX. NUMBER OF ITERATIONS 


SROREIER 


108 


vgheett ge, sere 
oye cobra Suge hutes 
Hci scnetaaaee 


Ps DOING LEADING 0’S? 


0. cb Siatt=0. 


;}FALL THROUGH IF 0 


fi 
Seed § - 
W - a5 : g 
stay g Hie = OBE 
oS e he 3 ~ Bs a tm 
= SSSSSS 2g S Buy 


ato free iV. 


ETOP Te ninGen. Leaoine Seno’ MiLt ALWAYS De 


-~ 
g ; z 5 5 
_ a, am) amt a ae 7 a - 2 pe 3 eo u 
2 =a Hatith titi eae ~ ‘uud oO a tet 


TTT 7 To 
aaa ee 2 i a ee iy BaoR 


: 
 pespesuubseloeneamvelsaleeloesaets Eee 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


ieee B BEL hed Het)” 
SAREPLACED WITH SPACES. 


imerore the" PIAL: 


08-AUG-77 09:20 


CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


MACY11 27(1006) 


08-AUG-77 09:16 





Scam een perme Speen, Seen Doce eee pam, Soamm Spamm, poem pam, foam pam Sean pam pom pean pam pam bam Seam. pam pam bam bam. bam pam pam pam bam bam pam pam bam pam Sooooooo 
Cooo0000o0O oooo0o 


BARR NAR RRS orn oon HANSEN 


rarrzr7rzzrza7z7z77z7777F77 777777777 
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OVDVCA.P11 
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327 O14 


138 


1 
1 


08-AUG-77 


12601 
2600 
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Baddde 000004 


08-AUG- 
CONVERT 


SDTBL: 


ePaBTE HE 


3 


4 


;;POP STACK INTO Ri 
RO 


;;POP STACK _INTO 


tAbJusT THe STACK 


;;RETURN TO USER 


SE@ 0100 
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-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


pa rrareek oer g 16-BIT BINARY MUMEER TO A 6-DIGIT 


SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


Sree za GGs 


tials * mov NUM, -(SP) ; NUMBER TO BE TYPED 
+ TYPOS FOR TYPEOUT 
= ii BYTE N jiNel 1 10 2 FOR NUMBER OF DIGITS TO TYPE 
i _ ;;1=TYPE LEADING ZEROS 
i# ;;0=SUPPRESS LEADING ZEROS 
j #STYPON--—-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:#ST POs OR STYPOC 
1 NUM, -(SP) +3 0_BE TYPED 
S hn REET? eb 
357 :#STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
3 jECALL: MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
30 + TYPOC >:CALL FOR TYPEOUT 










y 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
. 
4 STYPOS: nov (SP), -(SP) PICKUP THE NODE at 
4 MOVB 13) Sori Hit pietTe 70 TO CAPE 
DS, Gh) SS ARUUST RETURN 
436 STYPOC: MOVB 81, SOFT ILL SWITCH 
4366 MOVE 86, +1 ter roe cinco) DiGtTs 
4365 STYPON: MOVE ; SOCNT 
4370 MOV »7 (SP) i 
437 nov Ru -(BP) 
Wars Hove SOAODE, RH 11 SV SVE NUMBER OF DIGITS TO TYPE - 
4378 ADO #6, R4 js SUBTRACT i FoR MAX. ALLOWED 
4371 MOVB = R4" SOMODE I 
4 MOVB  SOFILL,R4 *:GET THE ZERO FILL SUITCH 
nite MOV ” Het THE INPUT 
138) = aa 38 aoe ee 
4386 2S: ROL RS ::FORM THIS DIGIT 
438: ROL RS 
43 ROY Re R3 
430% 3S: ROL R32 5 ;GET OF THIS DIGIT 
is DECB SOn0DE i TYPE HIS DIGIT? 
43¢ BIC $177770,R3 *:GET RID OF JUNK 
is BNE 4§ +: TEST FOR O 
TST RY ::SUPPRESS THIS 0? 
4 BEQ i} ::BR IF YES 
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FE Bo RCT REranaS ame 0 
a ee ae 
$3 By 1 





a 
5 


DE 
BGT 





t é siBR TE pone 

10S 208 Fc RY ;; INSURE DIGIT ISN'T A BLANK 
Heke es:  fov 7+, RS if mee 

1 MOV (SP)+,R4 $3 RY 

1 MOV (SP)+,R3 $3 R3 

1 000004 MOV 2(SP)'4(SP) ::SET THE STACK FOR RETURNING 

my (SP)+, (SP) . «RETURN 
s eR HP Br 
: TERMINATOR F INE 


ssOCTAL DIGIT COUNTER 
+; NUMBER OF Barre TO TYPE 


HERS 
mak 


ERP SSB SRReGR CRE UaR ES 

PRELSSeeeeeesesseeseee2 
S a 

Sanaa 

oOCcooo 


08 
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-SBTTL TRAP DECODER 


pO ata MHC HUE LOLS Tite PR ri eral eRe 


ae ee Te: THEN USING THE ADORESS OBTAINED IT WILL 


£e8sss | 
NOUN 


010046 STRAP: MOV -(SP) ier RO 


itias Gusscn ate} RO Te, Ress 
am fb. 
;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 


ot ites 4 STRAP2: MOV (SP) ,-(SP) i THE PC DOWN 

1 16666 000004 000002 MOV 4(SP},2(SP) THE PSW DOWN 

01 000002 RTI : RESTORE THE PSW 
-SBTTL TRAP TABLE 


s#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
:#BY THE “TRAP” ON. 


FERSESESERIEPE ERS ¥ 3 ee 


INSTRUCTI 
: ROUTINE 

14462 014450 $TRPAD: .WORD STRAP 
1 11770 ; ;CALL=TYPE TRAP+ (104401) TTY OUT our NE 
1 14224 *:CALL=TYPOC © TRAP42( 1 ) TYPE oe FAL (WITH LEADING ZEROS) 
144 14200 *:CALL=TYPOS  TRAP+3(1 ) OCTAL NUMBER (NO ING ZEROS) 
144 14690 TYPON ?:CALL=TYPON  TRAP+4(1 ) OCTAL NUMBER (AS LAST CALL) 
14474 Ol t:CALL=TYPDS © TRAP+S(10440S) TYPE DECIMAL NUMBER (WITH SIGN) 
014476 012322 * §GTSMR ;;CALL=GTSWR § TRAP+6(104406) GET SOFT-SWR SETTING 
1 12252 SCKSWR ;;CALL=CKSWR § TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR 

4 O1 1 SROCHR :;CALL=ROCHR | TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
1 1 4 be SROLIN ;;CALL=ROLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 





NO8 
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RBASE = 175) oe 945 986 
Pe J s DRA 


960 
391% 370S# 3728 $37358 






B3 







at Sat Set Sel Set Set Se 
elele.e se 





“+ 
- 





> 





R 


® 
N 





1879 1968 2108 2309 2633 


ESPLLLPPPLLLPLLLLLLLLS LPPLIPSSIIIL ILI 


== 


Boe REIIRLGRSLIR RSLS SARE 


3712 giube 4107 41498@ 4183 
ys ‘g 41508 

gag 952 

1 asg 

at 8 # 


2 
ee 


28e4 2968 


3108 3651# 


SEQ 0104 


3719% 37408 


BO9 


BVOVORLPLL  e-tus-77 Ossle FERENCE TRGLE <- ‘USER SYMBOLS 
— tm 


Ed 3700 «=s_« 37338 
; 
42e44 


— po ee 


Poresers 
eS ttale a 


oo 
|: Reues Berg 


NNNNNN 
eee oranda 


uo 
See Berens e ae 


ae, 


1137 1169 «M02 0 =s(- 37780 


3328% 3351 3362% 3374 3381 


REE A EY a 





CO9 
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10538 4227 42288 42308 42338 


po Raks 
sie jie 






LF s 
aINT = 
l 
MAINTJ= 1s 
= e 
MAX 
MYTYPE 8 
a : 
28 
ay 
7% 
- 
s 7788 
TYz vue 
ar 1 is 
BE B08 
PBR 7998 
PBAUDe 7988 
pepU0S= 7978 
ERR = Fa08 
ROVES + 
RO bb08 
Pa . bole 
. ee Se 
PRY os 6648 
PRS = 6658 
PRE = 6668 











1041 


i 2] 9 Aa PREG 


8 


td Bisa 30 2s 


oS 8 


Wms i 


_ 
28 

Ww) 
ca 


— 
— 
Ww 


7 
DR 


é 


3651 
3464 


51 


3553% 3556% 
2575# 2591 
1330 1344 
2010 

ay 
2li1 2306 
2396 2398 
2416% 2418% 
2393 3133 


i 


2692 


a 
ABE 


2418 


2699 


1610 


3106 


24798 


23 


3316 


SEQ 0106 
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‘ae 


Beret enireaa ore 


31 





Retese? 
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et 13%9 212 2% 2768 314% 3150 
ae ane 3636% 36378 3B4G# 38S2% 38648 
# 
ize 1198 #1931 2075 2164 #2213 2245 
fae 4708 1467# 81490) 86: 1504# 
1 1986 2033 oo 2078 
; # 3286# 
ie i 1 1 1994 2030 2056 
1 14 14 1 1490 =—s«1SO04~=—s« 1509 
44S48 
32458 
Hel 35178 
32S4# 3258 3266 32958 
4 
1124 
1703" 
1 17940 1745is«i1:76 1770 =—:11777,—Ss «1781 


1 
3020 = 3041 3469 


i ee 

ie3 

ites 

1021 1043% 1045 1051# 1058% 1072 3844 3857% 


1S09 
2367 


1830 


247 = 2899s: 3003 
is4o 861605 1831 
2658# c682%  2736% 
2367 2887 304: 
e820 8=6e73%6 2773 
1904 1989: 1998 
39%6 403% 4171 


SEQ 0107 


2519 


4178 
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4190 


69e8 


SEURSESES 


cs 


—s 

oO 

nS 

——O~— 
we 


seoviagaaiss 


sogveaies 


— 
wor 


~“ 


415 
105 


4222 
1072 


1030# 
1805 


4236 
3966 


5 ete 110 


4238 
3979 


32008 


-- USER SYMBOLS 


444 =“ 4251 


pe 


2678 2870 


1879 2633 2824S 2968 


3108 SH448 


379 


2356# 
1810s 
eat 


2867 


3238 


3484 = 3807 


SEQ 0108 


3703 





09 
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